Проверить, расположены ли 3 числа в порядке возрастания

Question

Проверить, расположены ли 3 числа в порядке возрастания

---

Answer 1

Var
  a,b,c : integer;

begin
  
  Write('Введите 3 числа: ');
  Read(a,b,c);  
  If (a     Writeln('Числа расположены в порядке возрастания') else
     Writeln('Числа не расположены в порядке возрастания');
 
end.