function campur(n : integer) : integer;
begin
    campur := n * n;
end;

function aduk(x,y,z : integer) : integer;
begin
    if (y = 0) then
        aduk := 1
    else if (y mod 2 = 0) then
        aduk := campur(aduk(x,y div 2,z)) mod z
    else
        aduk := ( (x mod z) * aduk(x,y-1,z) ) mod z;
end;

var
    a,b,c : integer;

begin
    readln(a,b,c);
    writeln(aduk(a,b,c));
end.

35. Jika program dijalankan dan pengguna memasukkan angka 2, 10, dan 10, berapakah angka yang dikeluarkan program?

36. Jika program dijalankan dan pengguna memasukkan angka 4, 40, dan 5, berapakah angka yang dikeluarkan program?

Pertama, analisis setiap fungsi dan langkah.
Fungsi campur adalah fungsi yang akan menghasilkan bilangan kuadrat dari parameternya. Sedangkan fungsi aduk akan memeriksa nilai y. Jika y bernilai 0, maka fungsi bernilai 1. Jika y merupakan bilangan genap, maka nilai y akan dibagi dua namun dengan hasil yang dikuadratkan dan mod z. Jika y merupakan bilangan ganjil, maka fungsi bernilai (x mod z) dikali fungsi aduk dengan y-1.

Dengan mengabaikan mod, maka terlihat bahwa f(x,y=0) = 1.
f(x,1) = x
f(x,2) = x²
f(x,3) = x*f(x,2) = x³
f(x,4) = x² * x² = x⁴.

Dengan demikian f(x,y) = x^y. Dengan menambahkan z, maka:
aduk(x,y,z) = x^y mod z.

35. aduk(2,10,10) = 2¹⁰ mod 10 = 1024 mod 10 = 4.

36. aduk(4,40,5) = 4⁴⁰ mod 5, karena terlalu besar, bagi hasilnya seperti algoritma program.
    4⁴⁰ mod 5 = (4²⁰ mod 5)² mod 5
    4²⁰ mod 5 = (4¹⁰ mod 5)² mod 5
    4¹⁰ mod 5 = (4⁵ mod 5)² mod 5
    4⁵ mod 5 = (4*4⁴ mod 5)² mod 5
    4⁴ mod 5 = 256 mod 5 = 1.

    4⁵ mod 5 = (4*1)² mod 5 = 16 mod 5 = 1
    4¹⁰ mod 5 = 1² mod 5 = 1
    4²⁰ mod 5 = 1² mod 5 = 1
    4⁴⁰ mod 5 = 1² mod 5 = 1
    Dengan demikian, angka yang dicetak oleh program adalah 1.