1BSD/puman/digits.p

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