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

Условия корявые
1 условие (2lt;=xlt;=3 and 0lt;=ylt;=1)
2 условие (-1lt;=xlt;=1 and -1lt;=ylt;=1)
изображение блок-схемы верное.
паскаль:
var x,y:integer;
if((xgt;=2 and xlt;=3) and (ygt;=0 and ylt;=1))
writeln("да");
else
if((xgt;=-1 and xlt;=1) and (ygt;=-1 and ylt;=1)
writeln("да");
else
writeln("нет");