Попадает ли точка в выделеную область

Uses  crt;
var x,y:real;
c:integer;
begin
clrscr;
writeln('Введите координаты точек [x,y]:');
Readln(x,y);
if ((sqr(x)+sqr(y)<=4) and(y<=(3/5*x)+3)and (y<=(6/4*x)+4)and (y<=(-5*x)+20)and (y<=(2/5*x)-5)and
((y>=(-1/4*x)+3)and(y>=(-3*x)-9)and(y>=(2.5*x)+7.5)and (y>=(2/5*x)-3)))then
Writeln('Ответ, попадает')else writeln('ответ, не попадает');
readln(c);
end.

var
  x,y: real;
  f1,f2: boolean;
begin
  write('Ââåäèòå çíà÷åíèÿ x, y: ');
  readln(x,y);
  f1:=x*x+y*y>=4;
  f2:=false;
  if f1 then
  begin
    if (x>=0)and(y>=0) //ïðîâåðÿåì ïåðâóþ ÷åòâåðòü
      and(y<=3*x/5+3)  //ïåðâàÿ ïðÿìàÿ (A[0,3]; B[5,6]) - òî÷êà äîëæíà áûòü íèæå -> çíàê <=
        and(y>=6*x-24)  //âòîðîàÿ ïðÿìàÿ (A[4,0]; B[5,6]) - òî÷êà äîëæíà áûòü âûøå -> çíàê >=
          then f2:=true;
          
    if (x>=0)and(y<=) // âòîðàÿ ÷åòâåðòü
    {.... è òàê äàëåå ...}
  end;
  if f2 then writeln('äà') else writeln('íåò');
  readln;
end.