NetBSD/share/doc/ps1/04.pascal/digits.p

10 lines
103 B
OpenEdge ABL

program digits(output);
var r: real;
begin
r := 0.;
r := .0;
r := 1.e10;
r := .05e-10;
writeln(r)
end.