{$codepage UTF8} VAR Letra01 : Char; BEGIN Letra01:='A'; Writeln(Letra01); Letra01:=#65; Writeln(Letra01); Letra01:=#$41; //hexadecimal Writeln(Letra01); readln END.