Найти пары взаимно противоположных чисел

uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('Введите 3 целых числа:');
readln(a,b,c);
if(a=-b)or(a=-c)or(b=-c) then
write('Есть пара взаимно противоположных чисел')
else write('Нет пары взаимно противоположных чисел');
readln
end.

uses crt;
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки:');
readln(x,y);
if(x*x+y*y<=9)and((y>=2*x+2)or(y<=x-2)) then write('Принадлежит')
else write('Не принадлежит');
readln
end.

uses crt;
var n:integer;
    a,b,c:byte;
begin
clrscr;
repeat
write('Введите 3-х значное число n=');
readln(n);
n:=abs(n);{можно и отрицательное ввести}
until (n>99)and(n<=999);
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
if(a<>b)and(a<>c)and(b<>c)then write('Все цифры числа различны')
else write('Не все цифры числа различны');
readln
end.

uses crt;
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки');
readln(x,y);
if (x*x+y*y>=4){не в центральном круге}
and(((x*y<0)and(x*x+y*y<=16)){2и 4 четверти}
    or((x<=0)and(y>=-x-4))){3 четверть}
    or((x>0)and(y<=4)) then write('Принадлежит')
else write('Не принадлежит');
readln
end.

uses crt;
var a,b:integer;
begin
clrscr;
writeln('Введите 2 целых числа');
readln(a,b);
if(a+b) mod 2=0 then write('Числа имеют одинаковую четность')
else write('Числа имеют не одинаковую четность');
readln
end.

uses crt;
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки');
readln(x,y);
if ((x*y<0)and(x*x+y*y>=4)and(x*x+y*y<=9)){2 и 4 четверти}
or((x*y>=0)and(abs(x)<=3)and(abs(y)<=3)){1 и 3 четверти}
then write('Принадлежит') else write('Не принадлежит');
readln
end.

uses crt;
var n:byte;
    d:real;
begin
clrscr;
repeat
writeln('Выберите единицу длины');
writeln('1-дециметр');
writeln('2-километр');
writeln('3-метр');
writeln('4-миллиметр');
writeln('5-сантиметр');
readln(n);
until n in [1..5];
write('Введите длину отрезка d=');
readln(d);
if n=1 then write('Это ',d/10:0:2,' метров')
else if n=2 then write('Это ',d*1000:0:2,' метров')
else if n=3 then write('Это ',d:0:2,' метров')
else if n=4 then write('Это ',d/1000:0:2,' метров')
else if n=5 then write('Это ',d/100:0:2,' метров');
readln
end.