Revision be817c70341f9b582a80e115c604f518706f4f46 authored by Eric Allman on 19 April 1979, 11:33:40 UTC, committed by Eric Allman on 19 April 1979, 11:33:40 UTC
Work on file src/me/null.me Synthesized-from: 2bsd
1 parent 1aedb5f
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.
Computing file changes ...