{* Задача 147 *}

Unit ZADACH147;
Interface
Implementation
Begin
 writeln('Напечатать словарь состоящий из четырёх букв непоторяющихся в слове ');
End.

Program pas13599;

Uses zadach147.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  i : longint;
  j : longint;
  k : longint;
  l : longint;
  n : longint;
  b : Array[1..4] Of String;
Begin
  clrscr; {* Стираем всё с экрана *}
  For i := 1 To 4 Do {* Переменная i увеличивается с 1 до 4 *}
    For j := 1 To 4 Do {* Цикл для j => [1 .. 4] *}
      For k := 1 To 4 Do {* Увеличиваем k от 1 до 4 с шагом 1 *}
        For l := 1 To 4 Do {* Цикл для l => [1 .. 4] *}
        Begin
          If (ij)And(ik)And(il)And(jk)And      (jl)And(kl) Then
          Begin
            str(i, b[1]);
            str(j, b[2]);
            str(k, b[3]);
            str(l, b[4]);
            For n := 1 To 4 Do {* Увеличиваем n от 1 до 4 с шагом 1 *}
            Begin
              If b[n] = '1' Then
                write('a');
              If b[n] = '2' Then
                write('b');
              If b[n] = '3' Then
                write('c');
              If b[n] = '4' Then
                write('d');
            End;
            write(' ');
          End;
          
        End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.