Geldautomat

[Jumpy]

Kann man nicht das ganze mit nur einer Schleife lösen?

Delphi-Quellcode:

while R<> 0 do
  begin
    if R>2 then 
      begin
        listbox.Add ...;
        R=R-2;
      end
    else if R>1 then 
      begin
        listbox.Add ...;
        R=R-1;
      end
    else if ... 

  end

Mach den Code jetzt auch nicht schöner, aber man hat nur eine Schleife...
Oder hab ich da jetzt einen Denkfehler drin?