Даны три целых числа: A, B, C.
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.
Даны три целых числа: A, B, C.
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.