Проверить истинность высказывания: «Ровно два из чисел A, B, C являются положительными» — Pascal(Паскаль)

Program Boolean15;
Var
A,B,C:Integer;
Begin
ReadLn(A,B,C);
WriteLn((((A > 0) And (B > 0)) And (C < 0)) Or
(((A > 0) And (C > 0)) And (B < 0)) Or
(((B > 0) And (C > 0)) And (A < 0)));

end.