Среди чисел а, b, с есть хотя бы одна пара взаимно противоположных чисел (программа Паскаль)

Question

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

Answer 1

uses crt;
var a,b,c:real;
begin
clrscr;
writeln('Введите 3 числа:');
readln(a,b,c);
if((a<>0)and(b<>0)and(a+b=0))
or((a<>0)and(c<>0)and(a+c=0))
or((b<>0)and(c<>0)and(b+c=0))then
write('Есть пара противоположных')
else write('Нет пары противоположных');
readln
end