{* Задача 82 *}

Unit ZADACH82;
Interface
Implementation
Begin
 writeln('Написать программу определения количества билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр.');
End.

Program zadach82;

Uses zadach82.pas; {* Эту строку можно удалить *}
Function Summ(x : longint) : byte; {возвращает сумму цифр числа}
Var {* В работе нам потребуются переменные: *}
  k                       : byte;
  l                       : byte;
  y                       : longint;
  Begin
  y := x;
  l := 0;
While (y0) Do
  Begin
k := y Mod 10;
y := y Div 10;
l := l + k
End;
summ := l;
Var {* Необходимые переменные *}
  w1    : longint;
  w2    : longint;
  i     : longint;
  j     : longint;
  count : longint;
  n     : byte;
  m     : byte;
  Begin
  count := 0;
For j := 0 To 999999 Do {* Увеличиваем j от 0 до 999999 с шагом 1 *}
  Begin
w1 := j Div 1000;
w2 := j Mod 1000;
If summ(w1) = summ(w2) Then
  Begin
count := count + 1;
writeln(j, ' --> ', count)
End;

End;

End.....