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

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