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

Var a,b:integer;
begin;
readln(a);
readln(b);
if a<b then
begin;
  writeln(chr(a));
  writeln(chr(b));
end
else
begin;
  writeln(chr(b));
  writeln(chr(a));
end;
end.