Даны целые числа a b c . проверить истинность высказывания справедливо двойное неравенство a меньше b меньше c

program TestABC;

var

 a, b, c: Integer;

begin

 Write ('Введите a, b, c: ');

 Readln (a, b, c);

 if (a < b) and (b < c) then

   WriteLn ('a < b < c - справедливо')

 else

   WriteLn ('a < b < c - не справедливо');

 ReadLn;

end.