Помогите пожалуйста! С клавиатуры вводится последовательность чисел, 0 конец последовательности. Посчитать сколько введено четных чисел. Нужно составить программу для Паскаль

var x,y:integer;begin  repeat    readln(x);    y := y + 1 - (x mod 2);  until x = 0;  writeln(y);end.