program ruslanchomaev;
var n,i:integer; s:real;
begin
writeln('Введите кол-во членов');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('сумму n первых членов ряда=',s:3:3);
end.
Объяснение:
