[Asinkrit]

Как это невозможно, а как же рекурсивный спуск)

Код:

function Summ(i:Integer):Integer;
begin
  Result:=0;
  if i > 0 then
    Result:=Result+(i*i)+Summ(i-1);
end;