Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число B находится между числами A и C» — Pascal(Паскаль)

program logik;
var A, B, C: integer;
begin
    write('Введите A, B и C: ');
    read(A, B, C);
    writeln('Число B находится между числами A и C - ',((A < B) and (B < C)) or ((A > B) and (B > C)));
end.