BelongsToArea

program BelongsToArea;

var
    x, y: real;

begin
   write('Введите х координату точки: ');
   readln(x);
   write('Введите y координату точки: ');
   readln(y);

    // 1 четверть
    if (x >= 0) and (y >= 0) then
    begin
        if (x*x + y*y >= 10*10) and (x*x + y*y <= 20*20) then
            writeln('Точка принадлежит заштрихованной части плоскости.');
        else
            writeln('Точка не принадлежит заштрихованной части плоскости.');
    end
    // 2 четверть
    else if (x <= 0) and (y >= 0) then
    begin
        if ((x <= -10) and (y >= 10)) and (x*x + y*y <= 20*20) then
            writeln('Точка принадлежит заштрихованной части плоскости.');
        else
            writeln('Точка не принадлежит заштрихованной части плоскости.');
    end
    // 3 четверть
    else if (x <= 0) and (y <= 0) then
    begin
        if (x*x + y*y >= 10*10) and ((x >= -20) and (y >= -20)) then
            writeln('Точка принадлежит заштрихованной части плоскости.');
        else
            writeln('Точка не принадлежит заштрихованной части плоскости.');
    end
    // 4 четверть
    else if (x >= 0) and (y <= 0) then
    begin
        if ((x >= 10) and (y <= -10)) and ((x <= 20) and (y <= -20)) then
            writeln('Точка принадлежит заштрихованной части плоскости.');
        else
            writeln('Точка не принадлежит заштрихованной части плоскости.');
    end;

end.