Написать программу в паскале для вычисления суммы ряда 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);  // выводим ответ в формате 5 знаков для всего числа и два знака после точки

end.