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

var a:longint;

even,odd:byte;

begin

even := 0;

odd := 0;

write('Введите целое воложительное число: '); readln(a);

while a > 0 do begin

if (a mod 10) mod 2 = 0 then even := even + 1

else odd := odd + 1;

a := a div 10;

end;

writeln('В данном числе:');

writeln('- чётных цифр: ', even);

writeln('- нечётных цифр: ', odd);

end.