Developing.ru

Есть пример: [ATTACH]1549[/ATTACH] его нужно решить через паскаль
Написал код , но не могу понять в чем тут ошибка


program c1;
uses crt;
var
i,j,k,n:integer;
sum,s,x,l:real;
begin
clrscr;
writeln('Введите элементы k,n ');
readln(k);
readln(n);
x:=3;
l:=1;
s:=0;
sum:=0;
for k:=2 to n do begin
sum:=sum+s;
for i:=0 to k do begin
if i=0 then x:=1
else
x:=x*3;
if i=0 then l:=1
else
l:=(l-1)*i;
s:=s+x/l;
writeln(s);
end;
writeln(sum);
end;
readln;
readln
end.