{$codepage UTF8} TYPE Centimos = (CeroCentimos,CincoCentimos:=5,DiezCentimos:=10, CincuentaCentimos:=50); Soles = (CeroSoles,UnSol,DosSoles,CincoSoles:=5, DiezSoles:=10,VeinteSoles:=20, CincuentaSoles:=50,CienSoles:=100, DoscientosSoles:=200); VAR MiDineroC:Centimos; MiDineroS:Soles; OrdinalC,OrdinalS:Byte; BEGIN MiDineroC:=CincoCentimos; MiDineroS:=CincoSoles; OrdinalC:=Ord(MiDineroC); OrdinalS:=Ord(MiDineroS); Write('Tu tienes : S/. ',OrdinalS,' soles y ',OrdinalC,'/100 Nuevos Soles.'); Readln() END.