Написать программу на языке Паскаль

[Кулёк]

Помогите пожалуйста))
1. Определить, принадлежит ли точка с произвольно заданными координатами, фигуре, изображенной на рисунке.Снимок3.PNG
2. Задание: на языке Паскаль написать программу реализующую алгоритм, блок-схема которой составлена по первой задаче.Снимок4.PNG

[newerow1989]

Readln(x,y);
If (x>=-4) and (y<=2) and (y>0) and (0.5*x+2>=y) and (x<=4) and (y<=2) and (-0.5*x-2>=y) or (y<=0) and (x*x+y*y>=4) and (x*x+y*y<=16) then
wrileln('Точка входит') else
writeln('Точка не входит');

Сойдет?