Даны три целых числа: A, B, C. Проверить истинность высказывания: Справедливо двойное неравенство A < B < C - Pascal(Паскаль)

program logik;
var A, B, C: integer;
begin
    write('Введите A, B и C: ');
    read(A, B, C);
    writeln('Справедливо двойное неравенство A < B < C - ',(A < B) and (B < C));
end.