Написать программу, упорядочивающую 2 введённых с клавиатуры числа. Паскаль

Предыдущий
вопрос Следующий
вопрос

program OrderNumbers;

var
num1, num2, temp: integer;

begin
// Вводим два числа с клавиатуры
writeln('Введите первое число:');
readln(num1);
writeln('Введите второе число:');
readln(num2);

// Если первое число больше второго, меняем их местами
if num1 > num2 then
begin
temp := num1;
num1 := num2;
num2 := temp;
end;

// Выводим числа в отсортированном порядке
writeln('Числа в отсортированном порядке: ', num1, ', ', num2);
end.