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