Нужно в паскале написать программу.даны натуральные числа a, n. вычислить 1/a+1/a+1++1/a+n в паскале составить эту штуковину.

Var a,n,i:integer;   
      r,s:real;
 begin 
 readln(a);
 readln(n);
for i:=a to n do begin
r:=i;
s:=s+1/i;
end;
writeln(s);
end.