Написать программу на языке Паскаль для решения следующей задачи:
Дано четырехзначное число, которое вводится с клавиатуры пользователем. Посчитать количество четных и нечетных цифр во введенном числе.
На проверку нужно прислать СКРИНШОТЫ окна программы с кодом и результатами работы. Входные данные задать самостоятельно.
вроде так, но предупреждаю ответ не мой
##
uses School;
var n := ReadInteger;
var ko := n.Digits.Where(t-> t.IsOdd).Count;
Print('Нечетных', ko, 'четных', 4 - ko)