Berikut ini suatu potongan algoritma:

procedure cetak(a : byte);
begin
 while a > 0 do
 begin
 write(a mod 2);
 a := a shr 1;
 end;
end;

Prosedur di atas bila dipanggil dengan parameter 123 (yaitu cetak(123)) akan mencetak:

A. 123

B. 321

C. 123613015731

D. 1111011

E. 1101111