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