Задача по паскалю

[kamatoz]

поступил в универ на бухгалтера, а тут есть предмет програмирование. и так как у меня в школе небыло паскаля, я немогу решить следующую задачку. помогите пожалуста:

[gaw4]

Program p1;

Var   m,z,S :real;
     i,n:integer;
Begin

  Writeln('n-?');read (n);
   Writeln('m-?');read (m);
  S:=0;z:=1;
    for i:=0 to n do
    begin
         z:=z*(m+i);
                Writeln('a(',i,')=',z);
          S:=S+1/z;
    end;
    Writeln('S=',S);
  readln;
end.

[VIK_aka_TOR]

как то так...

var
n, i : integer;
m : double;
sum, x : double;
begin
write('введите m ');
readln(m);
write('введите n ');
readln(n);
x := 1/m;
sum := x;
for i:=1 to n do
  begin
    x := x / (m + i);
    sum := sum + x;
  end;
writeln('сумма равна ', sum:5:5);

end.

[kamatoz]

спасибо большое )))