По введённым координатам т. М(x,y), определить принадлежит ли она графику функции? (график функции: ось координат х, y : прямая линия (-3; 0) и (3; 0) продолжаемая четвертиной окружности (0;3) и (3;0) продолжая четвертиной эллипса (3;0) и (0;-2) -Pascal(Паскаль)

uses crt;
const t=0.0001;//точность попадания в линию графика
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки x,y:');
readln(x,y);
if((x>=-3)and(x<=0)and(abs(y+x-3)<t)){прямая}
or((x>=0)and(x<=3)and((abs(y-sqrt(9-x*x))<t){окружность}
or(abs(y+sqrt(13-4*x*x))<t))){эллипс}
then write('Принадлежит') else write('Не принадлежит');
readln
end.

 Program primer1;
var x,y:real;
begin
writeln('Введите координаты точки x,y');
readln(x,y);
if((x>=-3)and(x<=0)and(y=x+3)){прямая}
or((x>=0)and(x<=3)and(sqr(x)+sqr(y)=9)and(y>0)){окружность}
or((y<0)and(x=>0)and(x<=3)and(sqr(y)+4*sqr(x)-13=0)){эллипс}
then write('Принадлежит') else write('Не принадлежит');
readln
end.