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

1) (Где полукруг)var x, y:integer;begin readln(x, y); if (x>=0) AND (x*x + y*y >= 9) AND (x*x + y*y <= 25) then  writeln('(',x,';',y,') - принадлежат заданной области') else  writeln('(',x,';',y,') - не принадлежат заданной области')end.