Deskripsi untuk soal nomor 36 - 37

Perhatikan potongan program berikut:

function bincin (a:integer):string;
var
b:integer;
str:string;
begin
  if a=0 then
    bincin:=''
  else
  begin
    b:=a mod 4;
    if (b=0) then str:='0'
      else str:='1';
    bincin:=bincin (a div 2)+str;
  end;
end;