{$codepage UTF8} TYPE AELetras='!'..'ÿ'; //En UTF8 sería desde #$21 hasta #$C3BF //En UTF16 sería desde #$0021 hasta #$00FF NCirculos='➀'..'➉'; //En UTF8 sería desde #$E29E80 hasta #$E29E89 //En UTF16 sería desde #$2780 hasta #$2789 VAR b:AELetras; c:NCirculos; BEGIN b:=164; Writeln(b); //se comporta como un subrango de numeros enteros c:=10115; Writeln(c); //se comporta como un subrango de numeros enteros END.