Даны 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.