Написать программу, подсчитывающую количество четных и нечетных цифр в четырехзначном числе . ( в паскале с использованием цикла for)

Предыдущий
вопрос Следующий
вопрос

program CountEvenOddDigits;
var
number, digit, evenCount, oddCount: integer;
begin
write('Введите четырехзначное число: ');
readln(number);
evenCount := 0;
oddCount := 0;
for i := 1 to 4 do
begin
digit := (number div trunc(power(10, 4-i))) mod 10;
if digit mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;
end;
writeln('Количество четных цифр: ', evenCount);
writeln('Количество нечетных цифр: ', oddCount);
end.

Программа сначала запрашивает у пользователя четырехзначное число, затем с помощью цикла for вычисляет количество четных и нечетных цифр в этом числе. Результат выводится на экран.