Задача на Repeat и Div и Mod

[Renge]

PHP код:

 {С экрана вводится нат. число.
 Найти количество четных чисел, содержащихся в его записи.
 Опеределить номер (считая справа налево) каждой из них.
 Вывести на экран эти цифры, номера и количество четных цифр.}

 Program K6_2;
 Uses CRT;
 VAR
   a,n,no,kol : Longint;
 BEGIN
   kol:=0;
   Repeat
     ClrScr;
     Writeln('С экрана вводится нат. число.');
     Writeln('Найти количество четных чисел, содержащихся в его записи.');
     Writeln('Опеределить номер (считая справа налево) каждой из них.');
     Writeln('Вывести на экран эти цифры, номера и количество четных цифр.');
     Writeln('');
     Write('Введи натуральное число: ');
     Readln(n);
     Writeln ('Четные цифры', 'Номер':30);
     no:=0;
     Repeat
       a:=n mod 10;
       n:=n div 10;
       no:=no+1;
       If (a mod 2=0) and (a<>0) then Begin
                         write (a, no:50);
                         kol:=kol+1;
                         End;
     Until n<>0;
     Writeln('');
     Writeln ('Четных цифр ', kol, '.');
     Until ReadKey=#27;
 END. 


Непонимаю в чем ошибка, работает некорректно.*

[Hacker19_90]

Цикл задан не правильно Until n<>0;
на первом же шаге при числе равном допустим 10! вы в n получите 1
1 <> 0! выход из цикла!
надо так
Until n = 0;

[Renge]

Действительно, перепутала, спасибо. Но теперь он неправильно выдает кол. четных цифр.

[Hacker19_90]

Но теперь он неправильно выдает кол. четных цифр

Довольно логично! Смотрим код дальше!

kol:=0; 
   Repeat

И что мы видим? Что количество обнуляется только на старте программы! А потом пока цикл работает? НЕТ! отсюда постоянное прибавление!

[Renge]

А зачем ему обнулятся? Он будет прибавлять по единице на каждом четном числе и так их посчитает.

[Renge]

А зачем ему обнулятся? Он будет прибавлять по единице на каждом четном числе и так их посчитает.

[Hacker19_90]

Ну а как же! вот мы нашли чётные числа одного числа! Затем вводим другое число ищем цифры дальше! А количество не обнулили

[Hacker19_90]

ОООООООООООО! ДАААААААААААА! ФОРУМ ТУПИТ!!!

[Renge]

Странно, я не понимаю почему, но программа заработала. Спасибо большое*

[Hacker19_90]

Обращайтесь!