// PascalABC.Net 3.0, сборка 1064
var
a,b:byte;
begin
Write('Введите два кода символов, большие 31: '); Read(a,b);
if (a<32) or (b<32) then Writeln('Код должен быть больше 31')<br> else begin
Write('Символы, соответствующие кодам: <');<br> if a>b then Write(Chr(a),'> и <',Chr(b),'>')
else Write(Chr(b),'> и <',Chr(a),'>')
end
end.
Тестовое решение:
Введите два кода символов, большие 31: 42 198
Символы, соответствующие кодам: <Ж> и <*>