Счастливые билеты (1 уровень)

Условие:
Написать программу определения количества билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр.

Решение:
Идея решения. Просматриваем числа от 0 до 999999. Делим число на 2 части: первые 3 цифры и последние 3 цифры, находим сумму цифр каждой из частей, сравниваем результат.

function summ(x:longint):byte; {возвращает сумму цифр числа}
var
k,l:byte;
y:longint;
begin
y:=x;
l:=0;
while (y<>0) do
begin
  k:=y mod 10;
  y:=y div 10;
  l:=l+k
end;
summ:=l;
end;
var
w1,w2,i,j,count:longint;
n,m:byte;
begin
count:=0;
for j:=0 to 999999 do
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.