Составить программу, которая: a) определяет два символа по их кодам, введенных с клавиатуры; b) вывести их на экран в порядке убывания.

// 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),'> и <',Chr(b),'>')     else Write(Chr(b),'> и <',Chr(a),'>')   end end. Тестовое решение: Введите два кода символов, большие 31: 42 198 Символы, соответствующие кодам: <Ж> и <*>