BSD 1 development

[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.