[unix-history] / .ref-BSD-3 / usr / doc / pascal / digits.p

program digits(output);
var r: real;
begin
r := 0.;
r := .0;
r := 1.e10;
r := .05e-10;
writeln(r)
end.
Commit	Line	Data
1f017636 BJ	1	program digits(output);
	2	var r: real;
	3	begin
	4	r := 0.;
	5	r := .0;
	6	r := 1.e10;
	7	r := .05e-10;
	8	writeln(r)
	9	end.