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

Var x,y:real;
begin
write('Введите x и y: ');
readln(x,y);
// точка лежит в 1 четверти, ур-е границы x^2+y^2=5^2
if (xgt;=0) and (ygt;=0) then
  if x*x+y*ylt;25 then writeln('Да, лежит') else writeln('Нет, не лежит');
// точка лежит во 2 четверти, ур-е границы y=x-5
if (xlt;0) and (ygt;0) then
  if ylt;x-5 then writeln('Да, лежит') else writeln('Нет, не лежит');
// точка лежит в 3 четверти, ур-е границы y=-x-5
if (xlt;0) and (ylt;0) then  if ylt;-x-5 then writeln('Да, лежит') else writeln('Нет, не лежит');
// точка лежащая в 4 четверти не принадлежит фигуре
if (xgt;0) and (ylt;0) then writeln('Нет, не лежит')
end.