// 2

var a, b: char;
begin
  write('Ââåäèòå äâà ñèìâîëà: ');
  read(a, b);
  if a > b then writeln(b, a)
           else writeln(a, b)
end.

// 3

var a, b: integer;
begin
  write('Ââåäèòå êîäû äâóõ ñèìâîëîâ: ');
  read(a, b);
  write(chr(a), chr(b))
end.