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