BSD 2 development

[unix-history] / 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.