1BSD/tests/t06.p

program egwhile(output);
var
	n: integer;
	h: real;
begin
	n := 10;
	write(n);
	h := 0;
	repeat
		h := h + 1/n;
		n := n-1;
	until n = 0;
	writeln(h)
end.