Принадлежность точки заштрихованной области. Турбо Паскаль 7.0

[neio]

Принадлежность точки заштрихованной области. Турбо Паскаль 7.0

Необходима программа, которая будет получать введенную координату (x и y ) и сравнивать эту координату с координатами заштрихованной области фигуры и на основании этого делать вывод о принадлежности/не принадлежности точки к заштрихованной области. Написал, программа корректно работает в пределах рисунка, но если, к примеру ввести x=100 и y=1000, она выдаст, что точка принадлежит Как задать приделы границ квадрата? Скажем, чтобы программа считала все координаты больше 3 по y и по x как невходящие. Помогите, уже идей совсем нет, похоже,что перемудрил с условиями :kapitul:

Program example1;
Uses crt;
Var x,y: real;
Begin
Clrscr;
Writeln('vvedite x,y');
Readln (x,y);
If ((sqr(x)+sqr(y))<=4) and (x>=-3) and (x<=3) and (y>=0) and (y<=3) then
writeln('ne vxodit')
else
writeln('vxodit');
readln;
end.

Фото фигуры:

 

[Vladimir_S]

Помогите, уже идей совсем нет, похоже,что перемудрил с условиями

Разумеется, перемудрил! Условие сформулировано абсолютно неверно. Надо так:

If ((sqr(x)+sqr(y))<=4) or (x<=-3) or (x>=3) or (y<=-3) or (y>=3) then
writeln('ne vxodit') 
else 
writeln('vxodit');

 

[neio]

Разумеется, перемудрил! Условие сформулировано абсолютно неверно. Надо так:

If ((sqr(x)+sqr(y))<=4) or (x<=-3) or (x>=3) or (y<=-3) or (y>=3) then
writeln('ne vxodit') 
else 
writeln('vxodit');

Огромное спасибо!