program raf105;
var
i,n: integer;
sum: real;
begin
write('n = ');
readln(n);
for i:=1 to n do
sum:= sum + (i+1)/i;
writeln('Вывод: ',sum);
end.
program raf105;
var
i,n: integer;
sum: real;
begin
write('n = ');
readln(n);
for i:=1 to n do
sum:= sum + (i+1)/i;
writeln('Вывод: ',sum);
end.
PascalABC 3.4.2