clock.p

早期freebsd实现

program writec(output);
var a:alfa;
begin
 writeln(wallclock);
 date(a); writeln(a);
 time(a); writeln(a);
 writeln(wallclock)
end.