{* Задача 89 *}

Unit ZADACH89;
Interface
Implementation
Begin
 writeln('

Написать программу, которая находит и выводит на печать все четырехзначные числа abcd, для которых выполняются следующие условия:

1) a, b, c, d - разные цифры

__ __

2) ab-cd=a+b+c+d

___

( ab означает, что число состоит из цифр a и b )

');
End.

Program zadach89;

Uses zadach89.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  a : byte;
  b : byte;
  c : byte;
  d : byte;
Begin
  ClrScr; {* Очистка экрана *}
  For a := 1 To 9 Do {* Цикл для a => [1 .. 9] *}
    For b := 0 To 9 Do {* Переменная b увеличивается с 0 до 9 *}
      If ab Then
        For c := 0 To 9 Do {* Переменная c увеличивается с 0 до 9 *}
          If (ac) And (bc) Then
            For d := 0 To 9 Do {* Цикл для d => [0 .. 9] *}
              If (ad) And (bd) And (cd) Then
                If (10 * a + b) - (10 * c + d) = a + b + c + d Then
                  write(a, b, c, d, ' ');
End.