Cоставить на паскале: 1) программу для вычисления суммы ряда s=1/1+ 1/3+1/5+..+1/n. число n вводится с клавиатуры.

Var s: real; i,n: longint; begin read(n); for i: =1 to n do s: =1/(2*i-1); writeln(s); end.