4.4BSD/usr/src/usr.bin/pascal/tstpx/src/clock.p

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