{$codepage UTF8} VAR i:integer; c:char; BEGIN c:='A'; i:=integer(c); writeln('c : ',c); readln() END.