10 видов монет достоинством a1..a10

label 1;
var
  a,b,c:array[1..10] of integer;
  i,j,n,s,k:integer;
begin
  write('R=');readln(k);
  write('a1,a2...a10=');
  for i:=1 to 10 do begin read(a[i]);b[i]:=k div a[i];end;
1:s:=0;
  for i:=1 to 10 do s:=s+a[i]*c[i];
  n:=n+ord(s=k);
  for i:=10 downto 1 do begin
    if c[i]=b[i] then for j:=i to 10 do c[j]:=0
  else begin c[i]:=c[i]+1;goto 1;end;
  end;
  writeln(n);
end.

  if s = k then inc(n);

label 1;
var
  a,b,c:array[1..10] of integer;
  i,j,n,s,k:integer;
begin
  write('R=');
  readln(k);
  write('a1,a2...a10=');
  for i:=1 to 10 do begin read(a[i]);
  b[i]:=k div a[i];
  end;
1:s:=0;
  for i:=1 to 10 do s:=s+a[i]*c[i];
  if s = k then inc(n);
  for i:=10 downto 1 do begin
    if c[i]=b[i] then for j:=i to 10 do c[j]:=0
  else begin c[i]:=c[i]+1;
  goto 1;
  end;
  end;
  writeln(n);
end.

var
  a, b, c: array[1..10] of integer;
  i, j, n, s, k: integer;
  q: boolean;
begin
  write('R = ');
  readln(k);
  write('a1 a2 ... a10 = ');
  for i := 1 to 10 do
    begin
      read(a[i]);
      b[i] := k div a[i];
    end;
  readln;
  repeat
    s := 0;
    for i := 1 to 10 do s := s + a[i] * c[i];
    if s = k then inc(n);
    for i := 10 downto 1 do
      begin
        q := c[i] = b[i];
        if q
          then for j := i to 10 do c[j] := 0
          else begin
            inc(c[i]);
            break
          end
      end
  until q;
  writeln(n);
  readln
end.

//a[i] - достоинство i-й монеты
//b[i] - максимальное количество монет достоинством a[i],
//       сумма которых не превышает заданную стоимость k
//с[i] - текущее количество каждой монеты
//i, j - счётчики
//n    - количество найденных наборов
//s    - текущая сумма
//k    - целевая сумма
//q    - факт того, что текущее количество монет текущего достоинства достигло максимума
var
  i, j, n, s, k: integer;
  q: boolean;
begin
  write('R = ');
  readln(k); //ввод целевой суммы
  write('a1 a2 ... a10 = ');
  for i := 1 to 10 do //цикл ввода достоинств монет
    begin
      read(a[i]); //ввод достоигства i-й монеты
      b[i] := k div a[i]; //расчёт максимального количества монет a[i], помещающихся в целевую сумму
    end;
  readln;
  repeat //цикл перебора вариантов выплаты
    s := 0; //текущая сумма пока равна 0
    for i := 1 to 10 do s := s + a[i] * c[i]; //цикл подсчёта текущей суммы: к сумме добавляются цены текущих количеств монет
    if s = k then inc(n); //если текущая сумма достигла целевой суммы, то инкрементируем количество найденных
    for i := 10 downto 1 do //цикл формирования наборов
      begin
        q := c[i] = b[i]; //факт достижения максимального значения текущего количества i-й монеты
        if q //если количество i-х монет максимально
          then for j := i to 10 do c[j] := 0 //то обнуляем текущие количества от i-й монеты до последней
          else begin //иначе (если не максимально)
            inc(c[i]); //инкрементируем количество i-й монеты
            break //и досрочно выходим из цикла формирования наборов
          end
      end
  until q; //если последняя монета включена в сумму максималльным количеством, прекращаем формировать наборы
  writeln(n); //печатаем количество наборов
  readln
end.

begin