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

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