Принадлежит ли точка закрашенной области - Turbo Pascal (29317)

program s11;
var
 x,y,r:real;
 a:boolean;
 
begin
 
R:=1;
readln(x,y);
 if x<=0.2  then
 begin
 writeln('1');
   if x>=-1 then
   begin
   writeln('2');
     if y>=-1 then
     begin
     writeln('3');
       if y<=0 then
 
       begin
       writeln('4');
       if r>=sqr(x)+sqr(y) then
       a:=True;
       end
 
       else a:=false
     end
     else a:=False;
   end
   else a:=False;
 end
 else a:=False;
 
 writeln(a);
 readln();
 end.