напишите программу которая считает количество четных цифр введенного числа в паскале

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016begin  var s:=ReadlnString('Введите число');  var k:=s.Where(x->x in ['0','2','4','6','8']).Count;  Writeln(k,' четных цифр')end.Тестовое решение:Введите число 23535463412321560989843212 четных цифр