2BSD/src/pascal/tests/bench.p

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.