Deskripsi untuk soal nomor 42 - 43

Perhatikan potongan program berikut:

procedure callfoo(var a : integer; b : integer);
var p,q : integer;
begin
if (b <= 2) then
 a := 1
 else begin
 callfoo(p,b-1);
 callfoo(q,b-2);
 a := p + q;
 end;
end;
var x,y : integer;
begin
 x := …; y := … ; {inisialisasi}
 callfoo(x,y);
 writeln(x);
end.