Procedura Vycetka(castka)
  Bankovky = (5000,2000,1000,500,200,100)
  Index = 1
  Opakuj
    Pocet = CelociselneDeleni(Castka, Bankovky(Index))
    Kdyz Pocet > 0
      Vytiskni "Bankovka: " + Bankovky(Index) + " Pocet: " + Pocet
      Castka := Castka - Pocet * Bankovky(Index)
    Index := Index + 1
  Dokud Castka >= 100
konec procedury