Рекурсивная процедура

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

[Alex_FF]

function Sum(N: Integer): Integer;
begin
    if N = 1 then
        Sum := 1
    else
        Sum := (1 + N * (N - 1) div 2) * (1 + N * (N - 1) div 2) + Sum(N - 1);
end;

var
   N: Integer;
begin
    ReadLn(N);
    WriteLn(Sum(N));
    ReadLn;
end.

[Asira]

n - число членов
s - сумма

[Asira]

Мне процедура нужна.

[spl1nter]

А что неправильно то? До 4го члена все считает как надо. Переменная s должна быть глобальной..

[Asira]

У меня считает не правильно всё время идёт вывод 1!!!!!!!

[spl1nter]

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

А так?

[Asira]

НЕ правильно(((

[Alex_FF]

var
   S: Integer;

procedure Sum(N: Integer);
begin
    if N = 0 then Exit;
    S := S + (1 + N * (N - 1) div 2) * (1 + N * (N - 1) div 2);
    Sum(N - 1);
end;

var
   N: Integer;
begin
    ReadLn(N);
    S := 0;
    Sum(N);
    WriteLn(S);
    ReadLn;
end.

[Asira]

и в таком варианте она работает не правильно постоянно выводит 1

procedure summa1(n:integer);
  var s:real;
begin
if n=0 then  Exit;
 s:=s+ (1 + n * (n - 1) div 2)*(1 + n * (n - 1) div  2);  summa1(n-1);
end;