[unix-history] / tests / t05.p

program egwhile(output);
var
	n: integer;
	h: real;
begin
	n := 10;
	write(n);
	h := 0;
	while n > 0 do
	begin
		h := h + 1/n;
		n := n-1;
	end;
	writeln(h)
end.
Commit	Line	Data
fde98a2d BJ	1	program egwhile(output);
	2	var
	3	n: integer;
	4	h: real;
	5	begin
	6	n := 10;
	7	write(n);
	8	h := 0;
	9	while n > 0 do
	10	begin
	11	h := h + 1/n;
	12	n := n-1;
	13	end;
	14	writeln(h)
	15	end.