Geldrückgabeautomat programmieren, aber wie?

[Kroko1999]

Delphi-Quellcode:

  for I := 1 to 14 do
  begin
    case I of
     1: G := 20000; //200,00€
     etc.
     14: G := 1 ; //0,01€
    end;
    Anzahl := Geld div G;
   Geld := Geld-Anzahl*G;
   //Anzahl auswerten
  end;