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

var
  a,b,c : integer;

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