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

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