Определить, принадлежит ли точка с координатами (х,у) заштрихованной области?

program test;
var
 radius: integer;
 x, y, d1, d2: integer;
 dist : real;
 
begin
 radius := 300;
 write('x -> '); readln(x);
 write('y -> '); readln(y);
 if (y < -radius) and (y > radius) then
 begin
  writeln('Не лежит.')
 end
 else
 begin
  dist := sqrt(x * x + y * y);
  if (x <= 0) and (x > -radius) then
  begin
    if dist >= radius then
    begin
     writeln('Лежит в заштрихованной области.');
    end;
  end
  else
  begin
   if (x > 0) and (x < radius) then
   begin
    if (dist <= radius) then
    begin
     d1 := (x - radius) * (radius - 0) - (0 - radius) * (y - 0);     
     d2 := (x - radius) * (-radius - 0) - (0 - radius) * (y - 0);
     writeln('d1 = ', d1, ' d2 = ', d2);
     if(d1 > 0) or (d2 < 0) then writeln('Лежит в заштрихованной области.')
     else writeln('Не лежит.');
    end
    else
     writeln('Не лежит.')   
   end;
  end;
 end;
 
end.

var
  x, y: real;
 
begin
  writeln('Введите x и y:');
  readln(x, y);
  if (x * x + y * y >= 90000) and (x <= 0) and (x >= -300) and (abs(y) <= 300) or 
     (x * x + y * y <= 90000) and (x >= 0) and (x <= 300) and (x + abs(y) >= 300) then 
    writeln('Попадает')
  else writeln('Не попадает')
end.