Среди чисел a, b, c есть хотя бы одна пара взаимно противоположных чисел. Напишите программу в Паскале ABC

Program n1;

label t;

var a, b, c: integer;

begin

readln (a, b, c) ;

if ab then if abs (a) = abs (b) then goto t;

if ac then if abs (a) = abs (c) then goto t;

if bc then if abs (b) = abs (c) then goto t;

writeln ('нет') ;

t:

writeln ('есть') ;

end.