Даны 3 числа a,b,c. определить, имеется ли среди них хотя бы одна пара взаимно обратных чисел. ,!

VAR
   a,b,c: LongInt;
BEGIN
   Read(a,b,c);
   
   if (a*b = 1)or(a*c = 1)or(b*c = 1) then Write('ДА')
   else Write('НЕТ');
END.