Составить программу вычисления значения выражения y=1+1/2+1/3+... +1/20.

{В данном случае целесообразно организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1. Обозначим: у - очередное значение суммы дробей; n - параметр цикла. Учитывая это, составим программу: }


program prim1;
  uses crt;
  var n: integer;
      y: real;
begin
  clrscr;
{Задаем начальное значение, равное нулю.}
  y:=0;
{Организовываем цикл с параметром от 1 до 20.}
  for n:=1 to 20 do
    begin
{Находим очередную сумму.}
      y:=y+1/n;
{Выводим на экран очередную сумму.}
      writeln('y=',y);
    end.;
end.