Ввести два числа и вывести их в порядке возрастания.
Пример:
Введите два числа:
15 9
Ответ: 9 15

program z1;var  a, b: integer;begin  writeln('Введите A:');  readln(a);  writeln('Введите B:');  readln(b);  if a < b then   begin    write(' ', a);    write(' ', b);  end;  if b < a then  begin    write(' ', b);    write(' ', a);  end;end.