Помогите пожалуйста! 5й надобно ,что бы программка писала true ,если точка

Program XY5;

var

 x,y: real;

begin

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

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

 writeln;writeln;

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

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

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

 if ((xgt;=0) and (ygt;=0) and (x*x+y*ylt;=16)) or ((xgt;=0) and (ylt;=0) and (x*x+y*ylt;=25)) then  

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

  else

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

end.