// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var Нечетных := ReadSeqInteger('Введите 4 числа:', 4)
.Where(k -> k.IsOdd).Count;
Println('Нечетных:', Нечетных, 'четных', 4 - Нечетных)
end.