вводится последовательность чисел, ноль - конец последовательности. Определить сколько чётных чисел было введено? написать while, подробно

спасибо, большое

Пожалуйста

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

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  var k:=0;  var t:integer;  while true do begin    Read(t);    if t=0 then break;    if t.IsEven then k+=1    end;  Writeln('Введено четных чисел: ',k)end.Пример25 -51 -87 -98 22 -10 -23 -17 18 -6 -27 18 -16 -3 96 92 34 0Введено четных чисел: 10