Вычисление суммы ряда

program pr336;
uses crt;
var x,n,k,i,f,t,u,y:integer;
begin
clrscr;
writeln('vvedite znachenie x');
readln(x);
writeln('vvedite znacheni n');
readln(n);
f:=k+1;
for f:=1 to n do
begin
f:=f+1;
end;
t:=n*(-1);
for t:=1 to n do
begin
t:=t+1;
end;
i:=0;
u:=(-1)*k;
y:=k+1;
for k:=1 to n do
begin
y:=y+1;
i:=u*((x*y)/y);
i:=t*i;
end;
writeln(i:5);
readln;
end.

program pr336;
uses crt;
function fact(x : longint) : longint;
var
i, res : longint;
begin
res := 1;
for i := 1 to x do
begin
res := res * i;
end;
fact := res;
end;
var
n, i : byte;
x,y,u,t : real;
sum, res : real;
k:integer;
begin
clrscr;
writeln('Vvedite x: ');
readln(x);
writeln('Vvedite n: ');
readln(n);
res := 0;
for i := 1 to n do
k:=1;
for k:=1 to n do
begin
sum := ((fact(2 * i)) + exp(ln(x)*k)) / fact(sqr(x*i));
res:=res + sum;
end;
writeln('otvet',' ':3,res:6:2);
readln;
end.