Вводится последовательность из n положительных целых чисел, 0 – конец последовательности. найти количество всех четных элементов последовательности. нужна шая и программа

Var   n,i:Integer;
begin 
 i:=0;
 repeat 
 Readln(n); 
 if (n mod 2=0) and (n<>0) then
   Inc(i); 
until n=0; 
Writeln; 
Writeln(i); 
readln;
end.