{* Задача 485 *}

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

Program zadach485;

Uses zadach485.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 *}
  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..