Deskripsi untuk soal nomor 25 - 26

Perhatikan potongan program berikut:

function bunga(x,y:longint):longint;
begin
    if x = 0 then bunga := y
    else bunga := bunga(x div 10, (y*10) + (x mod 10));
end;

function daun(x:longint):longint;
begin
    daun := bunga(x,0);
end;

function buah(x:longint):longint;
begin
    if daun(x) = x then buah := x else buah := buah(x+1);
end;