написать программу в pascal, которая вычисляет сумму S последовательности 1/1+1/2+1/3+.. .1/п

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.