Pascal - Компьютерный форум OSzone.net

у меня есть программа и задание(указаны ниже) в результате программа должна выдать результат Zns =-0.0097958 но увы у меня не получается достичь такого результата,прошу проверьте программу и помогите с правильным написанием,помогите пожалуйста

Задание: вычислить двойную сумму ряда с заданным количеством повторов,формула во Вложениях
Программа:

Код:

uses crt;

var Vns,Zns,y,zn,fact,x:real;

i,j:integer;

begin

clrscr;

writeln('vvedite x=0.72 ');

readln(x);

writeln('Rezyltat vuchislenij : ');

writeln('  j  ','     Zns ','           Vns');

Zns:=0;

j:=6;

Repeat

Vns:=0;

zn:=-1;

fact:=2;

for i:=1 to 10 do

begin

y:=zn*(exp((i+x)*ln(x))+i)/(fact+j*j);

Vns:=Vns+y;

zn:=-zn;

fact:=fact*(i+1);

end;

Zns:=Zns+Vns;

writeln(j:3,Zns:15:6,Vns:15:6);

j:=j+1;

until j>16 ;

writeln('Zns=',Zns:15:6);

readkey;

end.