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