Помогите срочно, пожалуйста! ​

Ответ:

program ChrToOrd;

var

 c: Char;

begin

 Write ('Введите символ: ');

 ReadLn (c);

 WriteLn (Ord (c));

 ReadLn;

end.

--------------------------------------

program OrdToChr;

var

 n: Integer;

begin

 Write ('Введите код символа: ');

 ReadLn (n);

 WriteLn (Chr (n));

 ReadLn;

end.