Pascal测运行时间

找到pascal里的sysutils单元粘到fp.exe所在文件夹下
程序开头写上uses sysutils；
此后now就是运行的时间
但now的单位不是秒，需要乘上86400
例：
uses sysutils；
var
i ：integer；
time ：real；
begin
time:=now;
for i:=1 to 10000000 do inc(k);
writeln((now-time)*86400);
end.
输出的就是运行的时间，这样就可以自己测程序的运行时间了