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

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.