program raf105;
var
i,n: integer;
s: real;
begin
write('N = ');
readln(n);
repeat
i:= i+1;
s:= s+1/i;
until i=n;
writeln('Сумма: ',s);
end.
program raf105;
var
i,n: integer;
s: real;
begin
write('N = ');
readln(n);
repeat
i:= i+1;
s:= s+1/i;
until i=n;
writeln('Сумма: ',s);
end.
PascalABC 3.4.2