составьте програму которая опрелеляет принадлежит ли точка с координатами ху данной

Три программки, отличаются только if-ами:

Program XY14b;

var

 x,y: real;

begin

 var s:='**** -=Alphaeus=- ****';  

 for var k:=1 to 22 do begin write(s[k]); sleep(40) end;

 writeln;writeln;

 writeln('Введите координаты точки:');

 write('X='); readln(x);

 write('Y='); readln(y);

 if ((xlt;=5) and (xgt;=-5) and (ylt;=5) and (ygt;=-5)) then  

   writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')

  else

   writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');

end.

Program XY14v;

var

 x,y: real;

begin

 var s:='**** -=Alphaeus=- ****';  

 for var k:=1 to 22 do begin write(s[k]); sleep(40) end;

 writeln;writeln;

 writeln('Введите координаты точки:');

 write('X='); readln(x);

 write('Y='); readln(y);

 if ((xlt;=10) and (xgt;=0) and (ylt;=6) and (ygt;=-4)) then  

   writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')

  else

   writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');

end.

Program XY14g;

var

 x,y: real;

begin

 var s:='**** -=Alphaeus=- ****';  

 for var k:=1 to 22 do begin write(s[k]); sleep(40) end;

 writeln;writeln;

 writeln('Введите координаты точки:');

 write('X='); readln(x);

 write('Y='); readln(y);

 if (((xgt;=0) and (x-ylt;=3)) or ((xlt;=0) and (x+ygt;=-3))) then  

   writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')

  else

   writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');

end.