CODE EXAMPLE FOR PASCAL

pascal cheat sheett

while i > 0 do
  begin
    writeln(i);
    i := i div 2;
  end;