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

Program Boolean14;

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.