{* Задача 127 *}

Unit ZADACH127;
Interface
Implementation
Begin
 writeln('Напечатать в возрастающем порядке все трёхзначные числа, в десятичной записи кот. нет одинаковых цифр ');
End.

Program pas13565;

Uses zadach127.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  i : longint;
  j : longint;
  k : longint;
  a : longint;
  l : longint;
Begin
  clrscr; {* Стираем всё с экрана *}
  For i := 1 To 9 Do {* Переменная i увеличивается с 1 до 9 *}
    For j := 0 To 9 Do {* Увеличиваем j от 0 до 9 с шагом 1 *}
      For k := 0 To 9 Do {* Переменная k увеличивается с 0 до 9 *}
      Begin
        If (ij)And(ik)And(jk) Then
        Begin
          a := 100 * i + 10 * j + k;
          l := l + 1;
          write(' a=', a);
        End;
        
      End;
  write(' кол-во чисел ', l);
  readln; {* Ждем подтверждения пользователя *}
End.