Срочно(((Помогите написать программу к рисунку.

начало программки :uses crt:integer; begin readln (x,y); if (x^2+y^2=36) and...

а далее тупик

откуда мы брали 36?

а какие еще цифрки мы знаем?

(x^2+y^2<=36)

и еще y>0? а потм теснее каждую четверть раздельно

Ладно

спасибо, что уделили мне время

так получилось?

да

Var
    x, y, r_small, r_big: integer;

begin
    readln(r_small, r_big);
    readln(x, y);
    Println(x * x + y * y lt;= r_big * r_big);
    if (x * x + y * y lt;= r_big * r_big) and (y gt;= 0) and
        ((x lt;= 0) or ((x gt;= 0) and (x * x + y * y gt;= r_small * r_small))) then
        writeln('Да')
    else
        writeln('Нет');
end.