Проверить истинность высказывания: «Справедливо двойное неравенство A»

Даны три целых числа: A, B, C.

Program Boolean6;
Var
A,B,C:Integer;
Begin
ReadLn(A,B,C);
WriteLn((A < B) And (B < C));
end.

автор: Sklyarov Sergej a.k.a. S9