[Asira]

Код:

function summa2(n:integer):integer;
var s,i,a:integer;
begin
s:=0;
a:=1;
for i:=1 to n do
begin
s:=s+a*a;
a:=a+i;
end;
summa2:=s;
end;