Даны 2 числа, проверить являются ли они взаимопротивоположными

Uses crt;
var
a,b: integer;
begin
clrscr;
read (a,b);
if (a=-b) or (b=-a) then
writeln (True)
else
writeln (False);
readln ();
end.

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