[Rokuell]

Код:

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