Итерационные алгоритмы. Паскаль авс.

[Света=)]

Всем здрасте=) Надо решить задачку: При заданном n вычислить выражение: http://s40.radikal.ru/i089/1012/10/940af683f1b7.jpg

[DoubleTrouble]

Program prim;
var
    t,x,z:real;
    n,i:integer;
begin
    read(n);
    x:=0;
    for i:=1 to n+20 do
    x:=x+1/i;
    for i:=10 to 50 do
    z:=z+sin(i);
    t:=z/x;
    write(t);
end.

[Света=)]

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