{* Задача 143 *}

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

Program pas13527;

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