посреди чисел a b и c нет одинаковых нулю и единице.

Так как нулей нет, то равенстао в условии можно сократить на а и получается, что

bc=1

Это и значит, что b и c обоюдно обратны.

Ответ:

Пошаговое разъяснение:

Program n1;

label t;

var a,b,c: integer;

begin

readln(a,b,c);

if alt;gt;b then if абс(a)=абс(b) then goto t;

if alt;gt;c then if абс(a)=abs(c) then goto t;

if blt;gt;c then if abs(b)=abs(c) then goto t;

writeln('нет');

t:

writeln('есть');

end.