Return to t05.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Initial revision

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.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.