Deskripsi untuk soal nomor 49 - 50

Perhatikan potongan program berikut:

function ben(x : integer) : integer;
var
  ans,i : integer;
begin
  ans := 0;
  for i := 1 to x do
  begin
    ans := ans + i;
  end;
  ben := ans;
end;

function ten(x : integer) : integer;
var
  ans,i : integer;
begin
  ans := 0;
  for i := 1 to x do
  begin
    ans := ans + ben(i);
   end;
  ten := ans;
end;