Написать программку, которая инспектирует, принадлежит ли точка (x,y) закрашенной области (x,y

PascalABC:

Program f0RwARdirop;

var R, x,y:real;

b:boolean;

begin

 writeln('*   Alphaeus is thinking...   *');

 write('Ok, введите R =');  readln(R);

 write('Сейчас введите Х =');  readln(x);

 write('И, в конце концов, введите Y =');  readln(y);

 if xgt;=0 then  

     if (x*x+y*y lt;= R*R) then b:= true else b:=false

   else

     if (абс(x) lt;=R) AND (абс(y) lt;=R) AND (abs(x) lt;= абс(y)) then b:= true else b:=false;

 if b then  writeln('Точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('Точка (',x,',',y,') НЕ принадлежит закрашенной области');

end.