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

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