Deskripsi untuk soal nomor 29 - 30

Perhatikan potongan program berikut:

function jeruk(x:longint):string;
var y:longint;
begin
    y := 1 shl 30;
    jeruk := ‘’;
    while (y>0) do
    begin
         if x >= y then
         begin
             jeruk := jeruk + ‘a’;
             x := x-y;
         end else if length(jeruk) > 0 then jeruk := jeruk + ‘b’;
         y := y shr 1;
    end;
end;