ПОМОГИТЕ ПЛИЗ! ЗАДАЧА ПО ИНФОРМАТИКЕ! МНОГО ПУКТОВ + ЗА ЛУЧШЕЕ РЕШЕНИЕ!

var ch: char; beginch: =66; writeln ('Код символа (', ch, ') — ', ord (ch); ch: =69; writeln ('Код символа (', ch, ') — ', ord (ch); ch: =71; writeln ('Код символа (', ch, ') — ', ord (ch); ch: =73; writeln ('Код символа (', ch, ') — ', ord (ch); ch: =78; writeln ('Код символа (', ch, ') — ', ord (ch); end.