Deskripsi untuk soal nomor 40 - 41

Perhatikan potongan program berikut:

function ox (m,n:integer):integer;
begin
  if n=1 then ox := m
  else if (n and 1)=0 then
    ox := ox(m,n shr 1) *
    ox(m,n shr 1)
  else
    ox := ox(m,n shr 1) *
    ox(m,n shr 1) * m;
end;