{* Задача 496 *}

Unit ZADACH496;
Interface
Implementation
Begin
 writeln('Написать программу, которая находит и выводит на печать все четырехзначные числа abcd, для которых выполняются следующие условия: 1) a, b, c, d - разные цифры 2) ab-cd=a+b+c+d');
End.

Program zadach496;

Uses zadach496.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 с шагом 1 *}
          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.