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

PascalABC

Program f0RwARdirop;

var  

 R,x,y:real;

 b:boolean;

 i:integer;

 s:string;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(200) end;

 writeln; 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 (abs(x) lt;=R) AND (абс(y) lt;=R) AND (абс(x) lt;= абс(y)) then b:= true else b:=false;

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

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

end.