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

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

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

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