program CharToAscii1;
var
  character : char;
  ascii : integer;
begin
  ascii := ord('a');
  writeln('a in ascii is ', ascii);
  character := chr(87);
  writeln('ascii 87 is character ', character);
  readln;
end.
{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}