Найти (х;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.