Даны три числа. Проверить, записаны ли они в порядке возрастания или убывания. паскаль.

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

program CheckOrder;
var
num1, num2, num3: Integer;
begin
Write('Enter the first number: ');
Readln(num1);
Write('Enter the second number: ');
Readln(num2);
Write('Enter the third number: ');
Readln(num3);

if (num1 < num2) and (num2 < num3) then
writeln('The numbers are in ascending order.')
else if (num1 > num2) and (num2 > num3) then
writeln('The numbers are in descending order.')
else
writeln('The numbers are not in ascending or descending order.');
end.