var
n : integer;
s : real;
begin
write('введите n ');
readln(n);
for var i := 10 to n do s += 1/i;
writeln('s = ', s);
end.
n должно быт n >= 10
