program raf105;
var
n: integer;
sum: real;
begin
write('n = ');
readln(n);
for var i:=1 to n do
sum:= sum + 1/i;
writeln('Сумма: ',sum);
end.
program raf105;
var
n: integer;
sum: real;
begin
write('n = ');
readln(n);
for var i:=1 to n do
sum:= sum + 1/i;
writeln('Сумма: ',sum);
end.
PascalABC