принадлежность точки(pascal)

[KIRILLoff]

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

кое какой код сделал,но он не работает,поэтому обращаюсь к вам.

program lab1
var x,y,y2,y3,a,b,r:real;
begin
writeln('vvedite coordinaty tochki')
write('po x');readln(a);
write('po y');readln(b);
y2:=x;
if (x<5) and (x<=0) then begin y3:=-sqrt(sqr(-x));
if (y>y3) and (y>y2) then writeln('da')
                             else writeln('net')
end;
if (y>=0) and (y<=0) then begin y3:=sqrt(sqr(x));
if (y<y3) and (y<y2) then writeln('da')
                             else writeln('net')
end;
readln;
end.

[Greblin]

А радиус окружности-то какой?
Вообще Вам надо рассматривать два варианта: 1) x >= 0; 2) x < 0. В первом случае точка будет принадлежать области, если у неё y >= x, и модуль радиус-вектора <= 1, во втором - если у неё y <= x, и модуль радиус-вектора <= 1.

[KIRILLoff]

радиус надо задать самому.
Пасиб,щас проверю свою догадку=)