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

program writer(output);
var a:alfa;
begin
 writeln(wallclock);
 writeln(sin(1/2));
 writeln(sqrt(1/2));
 writeln(ln(1/2));
 writeln(exp(1/2));
 writeln(cos(1/2));
 writeln(wallclock)
end.