Определить попадает ли точка А с координатами(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.