[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;