{* Задача 141 *}

Unit ZADACH141;
Interface
Implementation
Begin
 writeln('Сколькими различ способами можно надеть на нить семь бусин двух цветов-синего и белого. Напечатать возможные варианты. ');
End.

Program pas13491;

Uses zadach141.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  n : longint;
  a : longint;
  b : longint;
  c : longint;
  d : longint;
  e : longint;
  f : longint;
  k : longint;
  m : longint;
Begin
  clrscr; {* Очистка экрана *}
  For a := 1 To 2 Do {* Увеличиваем a от 1 до 2 с шагом 1 *}
    For b := 1 To 2 Do {* Цикл для b => [1 .. 2] *}
      For c := 1 To 2 Do {* Переменная c увеличивается с 1 до 2 *}
        For d := 1 To 2 Do {* Увеличиваем d от 1 до 2 с шагом 1 *}
          For e := 1 To 2 Do {* Цикл для e => [1 .. 2] *}
            For f := 1 To 2 Do {* Цикл для f => [1 .. 2] *}
              For k := 1 To 2 Do {* Цикл для k => [1 .. 2] *}
              Begin
                m := a * 1000000 + b * 100000 + c * 10000 + d * 1000 + e * 100 + f * 10 + k;
                n := n + 1; {кол-во спос.}
                write(' ', m);
              End;
  writeln('');
  write(' кол-во способов:', n);
  readln; {* Ждем нажатия Enter *}
End.