Паскаль. Нужно расчитать последовательность чисел
1+1/2+1/3+1/4+.....1/n

12/5 --------------------5#45

     'сумма ряда S=1+1/2+1/3+...+1/n)'Program sum;var n,i:integer;     s:real;beginwrite('n='); readln(n);s:=1for i:=2  to n do s:=s+1/n;writeln('n=',n);writeln('s=',s:13:10);end.