pleas,помогите решить задачу на паскале!

[Lerko]

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

[Chudo4258]

var i:integer;
     S:real;
begin
Write('N= '); readln(n);
S:=0;
for i:=1 to n do
 S:=S+1/n;
Writeln('S= ',S);
end.

[Lerko]

Спасибо Вам большое!!!!!!!!!