Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности

Спасибо. А у меня есть еще один вопрос по инфе, на который никто не ответил. Посмотри, пожалуйста, если хочешь еще баллов

не направите меня на него?

var a,col:integer;begin  col:=0;  a:=0;  while a<>0 do begin   read(a);   if ((a mod 2 = 0) and (a>0)) then col:=col+1;  end;  write(col);end.