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

Тестовое решение:
Введите два кода символов, большие 31: 42 198
Символы, соответствующие кодам: и