VIII/5

program VIII;//название
var//объявление переменных
x, y:real;//координаты точки
begin
    Write('Введите x, y:');
    ReadLN(x, y);
    //Радиус внутреннего круга равен трем, внешнего 7,
    //найдем расстояние от центра круга до точки по т. Пифагора
    //и если но > 3 и < 7, то точка лежит внутри заданной области
    if (x * x + y * y > 3*3) and (x * x + y * y < 7 * 7) then
        WriteLN('Да')
    else
        if (x * x + y * y = 3*3) or (x * x + y * y = 7 * 7) then//если на границе
            WriteLN('На границе')
        else
            WriteLN('Нет');
end.