Вычислите сумму n первых членов ряда на паскале

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.

Объяснение: