С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. Определить количество четных чисел.
Напишите на языке паскаль

Program n1;var a,k: integer;beginreadln(a);k:=0;while a<>0 dobeginif a mod 2=0 then k:=k+1;readln(a); end;write(k); end.