При попадании в маленький круг (радиус = 3), игроку начисляется 10 балла, при попадании в большой круг (радиус 9) — 5 балл, мимо мишеней — 0 баллов
Введите координаты

Радиус 7

Объяснение:

1) чтобы точно вынуть черный, нужно вынуть 6 шаров, т.к. первые 5 могут оказаться белыми

2)аналогично, 4 шара

3)7 шаров

4)5 шаров

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.