Проверить истинность высказывания: «Каждое из чисел A, B, C положительное»

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

Program Boolean12;
Var
A,B,C:Integer;
Begin
ReadLn(A,B,C);
WriteLn((A > 0) And (B > 0) And (C > 0));
end.

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