begin comment time(2) gives elapsed execution time in seconds/38400 ; integer n, nn, s; s := 0; for nn := 0 until 2000000000 do s:=s+nn; n := time(2); write(n); end.