Вопрос по ответу на задачу в Паскале

program Otvet3;
var
a,Sum:integer;  // в переменной Sum будет подсчитываться результат ( количество найденных чисел)
begin
Sum:=0; // начальное значение переменной
// далее сообщение о вводе чисел
Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.');
Read(a);  // здесь считывается значение первой переменной
While (a<>0) do  // организуем цикл с условием, выполнять тело цикла пока переменная A неравна 0
begin   // начало тела цикла
if (a>0)and(a mod 2 =0) // условие для отбора переменных.
                                   //Если a больше 0 (то есть положительное) и остаток от деления а на 2 равнен 0 (то есть число четное)
then inc(Sum); //если число по условию подходит то значение переменной Sum увеличиваем на единицу.
Read(a); // считываем очередное значение в переменную а
end; // конец тела цикла
// сообщение о результате работы
Writeln('Количество положительных четных чисел из данного набора: ',Sum);
end.