Ответ:

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

Program n1;

label t;

var a,b,c: integer;

begin

readln(a,b,c);

if a<>b then if abs(a)=abs(b) then goto t;

if a<>c then if abs(a)=abs(c) then goto t;

if b<>c then if abs(b)=abs(c) then goto t;

writeln('нет');

t:

writeln('есть');

end.

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

bc=1

Это и означает, что b и c взаимно обратны.