Верные роботы Бориса Ивановича выстроились перед ним в шеренгу. Он выбирает тех, кто сегодня будет красить школьный забор. Остальные сыграют в футбол. Борис Иванович решил, что: • из n роботов надо выбрать всего k;
• количество футболистов в командах между любыми двумя малярами одинаковое. Оно равно количеству футболистов в «командах» слева и справа.
Схема для n=11, k=2, где тёмные кружки — это роботы-маляры, а светлые — футболисты:
◎ ◎ ◎ ◉ ◎ ◎ ◎ ◉ ◎ ◎ ◎
Даны n и k. Выведи количество роботов-футболистов, стоящих между каждыми двумя счастливчиками, которые будут красить забор.
Ввод Вывод
11
2 3
5
1 2

Последовательности длиной 7, содержащей 5 букв А могут быть следующими:
** (* - любой из символов В или С)
*А*
ААА*АА*
АА*ААА*
А**
** (пока 6 вариантов)
Далее - аналогично:
**А
ААА*А*А
АА*АА*А
А*ААА*А
**А (ещё 5 вариантов)
ААА**АА
АА*А*АА
А*АА*АА
*ААА*АА (ещё 4 варианта)
АА**ААА
А*А*ААА
*АА*ААА (ещё 3 варианта)
А**
*А* (ещё 2)
** (ещё 1)
Итого: 6+5+4+3+2+1=21
Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая.
Можно здесь, конечно, комбинаторику вспомнить.
Итого: 21*4 = 84

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i, n, m: integer;
function simple(x:integer): boolean;
var
  i: integer;
begin
  Simple := false;
  if x < 2 then exit;
  if x mod 2 = 0 then exit;
  i := 3;
  while i <= sqrt(x) do
  begin
    if x mod i = 0 then exit;
    i +=2;
  end;
  Simple := true;
end;

begin
  write('Количество элементов массива :');readln(m);
  SetLength(a, m);
  while n <= m - 1 do
  begin
    if simple(i) then begin
      a[n] := i;
      n +=1;
    end;
    i +=1;
  end;
a.println;  
end.

Тестовое решение:
Количество элементов массива :25
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97