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

var a,b,c:Integer;beginRead(a,b,c);if (a<b) and (b<c) thenWriteLn('В порядке возрастания')else if (a>b) and (b>c) thenWriteLn('В порядке убывания')elseWriteLn('Нет');end.Нажимаем "лучший ответ"