Var x,y:real;
begin
write('x, y:');
readln(x,y);
if (x*x+y*y>=4)and(abs(x)<=2)and(abs(y)<=2)<br> then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
end.
Пример:
x, y:
1.6 -1.6
Точка принадлежит заштрихованной области