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

Program Boolean7;

Var
  A, B, C: Integer;

Begin
  ReadLn(A, B, C);
  WriteLn((A < B) And (B < C));

end.