Напишите программу в которой осуществляется ввод целых чисел(ввод осуществляется до тех пор пока е будет введен ноль) подсчет кол вачетных чисел.найденное кол во выводится

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.