{* Задача 144 *}

Unit ZADACH144;
Interface
Implementation
Begin
 writeln('Грани куба можно раскрасить:a)все в белый цвет; б)все в чёрный; в)часть в белый цвет-часть в чёрный; Напечатать возможные варианты и их кол-во. ');
End.

Program pas13545;

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