[Asinkrit]

Что-то типа этого)

Код:

function summa(const StartSum, FirstNum, CountN:integer):integer;
begin
  Result:=0;
  if FirstNum-1 < CountN then
    Result:=Result+(StartSum*StartSum)+summa(StartSum+FirstNum, FirstNum+1, CountN);
end;

и сам вызов

Код:

  Summa(1,1,N)