Проверить истинность высказывания: «Среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных»

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

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