Var
x,y:integer;
begin
write('Введите координаты: ');
readln(x,y);
if (x>1) or (x<-1) and (y<-1) or (y>1) then
writeln('Данная точка попадает в заштрихованную область.')
else
writeln('Данная точка не принадлежит заштрихованной области.');
if (y=1)or(y=-1) and (x=1)or(x=-1) then
writeln('Данная точка лежит на окружности.');
readln;
end.