Olimpiade Sains Kota (OSK) 2014 - Komputer, Nomor 32–33

Perhatikan potongan program berikut:

function mangga(rambutan : integer) : integer;
begin
  if (rambutan = 1) then mangga := 1   else
  if (rambutan mod 2 = 1) then mangga := mangga(3 * rambutan + 1)
  else mangga := mangga(rambutan div 2);
end;

function jeruk(anggur, melon : integer) : integer;
begin
  if (melon = 1) then jeruk := 0 else
jeruk := mangga(anggur) * anggur + jeruk(anggur, melon - 1);
end;