Задача о "удачных" билетах(turbo pascal 7.0)

[soldm]

Всем здрасте. Есть задача: надо найти сколько всего существует билетов в 1 тираже от 000 000 до 999 999 в которых сумма всех нечетных цифр равна сумме четных чисел. Я немного подумав решил эту задачу. Правда у меня есть небольшие сомнения относительно правильности ответа. У меня просьба проверьте правильно ли я решил задачу и если нет хоть намекните в чем проблема Число билетов получилось 15625.
Вот код программы:

program ei;
USES crt;
var
  C1,C2,C3,C4,C5,C6,k,Ch1,Ch2,Ch3,Ch4,Ch5,Ch6:integer;
begin
   ClrScr;
   for C1:=0 to 9 do
    for C2:=0 to 9 do
     for C3:=0 to 9 do
      for C4:=0 to 9 do
       for C5:=0 to 9 do
        for C6:=0 to 9 do
          begin
             if C1 mod 2=0 then Ch1:=C1;
             if C2 mod 2=0 then Ch2:=C2;
             if C3 mod 2=0 then Ch3:=C3;
             if C4 mod 2=0 then Ch4:=C4;
             if C5 mod 2=0 then Ch5:=C5;
             if C6 mod 2=0 then Ch6:=C6;
             if Ch1+Ch2+Ch3+Ch4+Ch5+Ch6=C1+C2+C3+C4+C5+C6 then k:=k+1;
          end;
writeln(k);
ReadLn;
end.

[ponchikpk]

ты что тут понаписал?
напиши функцию на разбиение билета на 6 цифр и просто суммируешь первые 3 и вторые 3 если равно то счастливый

[soldm]

Сообщение от ponchikpk

ты что тут понаписал?
напиши функцию на разбиение билета на 6 цифр и просто суммируешь первые 3 и вторые 3 если равно то счастливый

Ты не понял. На счасливые я так и писал. А тут УДАЧНЫЕ. тут надо не сумму 1 трех и 2 трех а сумму ЧЕТНЫХ и НЕЧЕТНЫХ!
поэтому я проверяю сначала четное если четное при делении на 2 остаток ноль то записываю под другой переменной. И так все 9 цифр. Соответственно если остаток есть программа оставляет старую переменную. Потом все сумирую и когда сумма равна прибавляю еще один к K!

[Stilet]

Одно я тебе намекнуть могу: Тут уже обсуждались такие задачи, кроме того - эта тема кросспост.
Закрываю ее.