var i,n:word;
sum:real;
BEGIN
write('n= ');
readln(n);
for i:=1 to n do
sum:=sum+1/i;
writeln('summa= ',sum:0:3);
readln
END.

<< Назад