Помогите пожалуйста! Необходимо составить блок схему и написать программку в ТурбоПаскаль

Попадает ли данная точка в закрашенную область?

Да, правильно, не дописала до конца

Var X,Y,R:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
R:=X*X+Y*Y;
if R gt; 1 then
   if x gt; 0 then
      if y gt; 0 then Write(R lt; 4)
      else Write(R lt; 25)
   else if y lt; 0 then Write(R lt; 16)
        else Write(R lt; 9)
else Write(false)
End.