Question

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

Answer 1

var
    x, y, r_small, r_big: integer;

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