{$codepage UTF8} VAR a : LongWord; // 4 bytes d : widechar; // 2 bytes e : char; // 1 byte BEGIN a:=$15A898AF; Writeln(a) d:=widechar(a); //asigna #$98AF Writeln(d); e:=char(a); //asigna #$AF Writeln(e) END.