Deskripsi untuk soal nomor 30 - 33

function hitung(a: integer): integer; 
begin 
  if (a < 0) then 
  begin 
    write('-'); 
    hitung(-a); 
  end 
  else if (a > 1) then 
  begin 
    tmp := hitung(a/2); 
    write(a mod 2) 
  end 
  else writeln(a); 
end;