Найти (х;y) принадлежащие заданной области. В паскале. Помогите пожалуйста

var x,y:real;beginwrite('X=');read(x);write('Y=');read(y);if (x>0) and (y>0) and (sqr(x)+sqr(y)<=16) or (x>0) and (y<0) and (sqr(x)+sqr(y)<=25) then writeln('Точка (',x,',',y,') принаджелит данной области') else writeln('Точка (',x,',',y,' не принаджелит данной области');end.