{* Задача 529 *}

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

Program zadach529;

Uses zadach529.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  k : integer;
  a : integer;
  b : integer;
  c : integer;
Begin
  For a := 1 To 9 Do {* Увеличиваем a от 1 до 9 с шагом 1 *}
  Begin
    For b := 1 To 9 Do {* Цикл для b => [1 .. 9] *}
    Begin
      For c := 1 To 9 Do {* Переменная c увеличивается с 1 до 9 *}
      Begin
        If (ab) And (bc) And (ac) Then
        Begin
          k := (a * 10 + b) * 10 + c;
          writeln(k);
        End;
        
      End;
      
    End;
    
  End;
  
End.