{$codepage UTF8} TYPE Letra = WideChar; VAR Letra01 : Letra; BEGIN Letra01:='ñ'; Writeln('Cumplea',Letra01,'os'); readln END.