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

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