{* Задача 535 *}

Unit ZADACH535;
Interface
Implementation
Begin
 writeln('Получить все способы расстановки шести книг разных авторов. ');
End.

Program pas0;
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  k  : longint;
  i1 : longint;
  i2 : longint;
  i3 : longint;
  i4 : longint;
  i5 : longint;
  i6 : longint;
  i7 : longint;
  i8 : longint;
  m  : longint;
  fl : longint;
  mm : String;
Begin
  clrscr; {* Очищаем экран *}
  For i1 := 1 To 6 Do {* Увеличиваем i1 от 1 до 6 с шагом 1 *}
    For i2 := 1 To 6 Do {* Увеличиваем i2 от 1 до 6 с шагом 1 *}
      For i3 := 1 To 6 Do {* Переменная i3 увеличивается с 1 до 6 *}
        For i4 := 1 To 6 Do {* Цикл для i4 => [1 .. 6] *}
          For i5 := 1 To 6 Do {* Увеличиваем i5 от 1 до 6 с шагом 1 *}
            For i6 := 1 To 6 Do {* Цикл для i6 => [1 .. 6] *}
            Begin
              m := i6 + i5 * 10 + i4 * 100 + i3 * 1000 + i2 * 10000 + i1 * 100000;
              str(m, mm);
              fl := 0;
              For i7 := 1 To 5 Do {* Увеличиваем i7 от 1 до 5 с шагом 1 *}
                For i8 := i7 + 1 To 6 Do
                  If mm[i7] = mm[i8] Then
                    fl := 1;
              If fl = 0 Then
              Begin
                write(m, '  ');
                inc(k); {* k++ *}
              End;
              
            End;
  write(' кол-во:', k);
  readln; {* Ждем нажатия Enter *}
End.