bench.p

来自「早期freebsd实现」· P 代码 · 共 11 行

program bench(output);
var a:alfa;
    i,j,k: integer;
begin
 writeln(wallclock);
 for i := 1 to 1000 do
    for j := 1 to 100 do
	k := 0;
 writeln(wallclock)
end.