home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / t07.p < prev    next >
Text File  |  1980-02-17  |  147b  |  13 lines
  1. program egwhile(output);
  2. var
  3.     i,n: integer;
  4.     h: real;
  5. begin
  6.     n := 10;
  7.     write(n);
  8.     h := 0;
  9.     for i := n downto 1 do
  10.         h := h + 1/i;
  11.     writeln(h)
  12. end.
  13.