Найти количество четных чисел в последовательности чисел.последовательность чисел заканчивается 0.паскаль

Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.