Определить попадает ли точка А с координатами(x,y) в одну из заштрихованных областей d1 или в d2 или не попадает? исправьте ошибки в блоке схеме и дайте решение помогите плиз очень нужно

{ фото огонь !!! ))) решение согласно схеме }
var x, y, d: real;
begin
 read(x,y);
 d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат}
 if d lt;= 1 then
   writeln(Входит в Д1)
 else if ( x gt;= 2 ) and ( x lt;= 3 ) and ( y gt;= 0 ) and ( y lt;= 1 ) then
   writeln(Входит в Д2)
 else
   writeln(Не входит);
end.