Рекурсивная процедура. Почему рекурсия работает неправильно?

[Asira]

Почему рекурсия работает не правильно??
она должна сосчитать выражение 1 + 2*2 + 4*4 +7*7 +11*11 .....

Код: [Выделить]

procedure summa1(n:real;var s:real);
begin
if n=1 then s:=1
else
   begin  summa1(n-1,s);
    s:=s+ (1 + n * (n - 1) / 2)*(1 + n * (n - 1) / 2);
         end;
end;

[InfStudent]

Проверьте саму формулу как вы ее закодировали