{* Задача 444 *}

Unit ZADACH444;
Interface
Implementation
Begin
 writeln('Составить программу и трассировку программы вычисления суммы элементов последовательности.

');
End.

Program zadach444;

Uses zadach444.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s : real;
  i : integer;
Begin
  s := 0;
  For i := 1 To 20 Do {* Переменная i увеличивается с 1 до 20 *}
    s := s + 1/(5 * i);
  writeln ('s=', s);
End.