Рекурсивная функция Делфи

[Asira]

Помогите написать рекурсивную функцию без оператора for
Найти сумму: 1( в квадрате)+2(в квадрате)+4(в квадрате)+7(в квадрате)+11(в квадрате)… (n слагаемых)

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

[Greblin]

n-ый элемент последовательности равен 1 + (1 + 2 + ... + (n-1)) = 1 + n * (n - 1) / 2.

function summa3(n: integer): integer;
var a: integer;
begin
a := 1 + n * (n - 1) div 2;
if (n <> 1) then summa3 := a * a + summa3(n-1);
else summa3 := 1;
end;
...
summa3(n);

[Asira]

Спасиб!!!!!!!! мой мозг никогда бы этого - 1 + (1 + 2 + ... + (n-1)) = 1 + n * (n - 1) / 2.не осилил