Составить программу ** языке Pascal, печатающую значение TRUE, если указанное...

Question

Составить программу на языке Pascal, печатающую значение TRUE, если указанное высказывание является истинным и False в противном случае.

1) среди чисел a,b,c есть хотя бы 1 пара взаимно противоположных чисел

---

Answer 1

var a, b, c: integer;

begin

  readln(a, b, c);

  if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');

end.