{* Задача 497 *}

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

Program zadach497;

Uses zadach497.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.