Написать программу в паскале для вычисления суммы ряда Sn=1+1/2+1/3 + ... + 1/n, где n - натуральное число, вводимое с клавиатуры

program zz1;

var n, i:integer; / / задаем переменные целого типа

s:real; / / задаем переменную не целого типа

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

s:=0; / / задаем начальное значение для переменной суммы

for i:=1 to n do / / организуем цикл на n повторений

begin

s:=s + 1/i; / / вычисляем сумму ряда

end;

write (' полученная сумма ряда = ', s:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.