{* Задача 97 *}

Unit ZADACH97;
Interface
Implementation
Begin
 writeln('

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

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

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

');
End.

Program zadach97;

Uses zadach97.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 с шагом 1 *}
      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 a * b - c * d = a + b + c + d Then
                  Write(a, b, c, d, ' ');
End.