Нужно написать программу на языке Паскаль для решения следующей задачи:
Дано четырехзначное число, которое вводится с клавиатуры пользователем. Посчитать количество четных и нечетных цифр во введенном числе.
var x,y,z,ch,nch:integer;
begin
readln (x);
while x>0 do begin
z:=x mod 10;
x:=x div 10;
if z mod 2=0 then
ch:=ch+1
else
nch:=nch+1;
end;
writeln ('Четных: ',ch,' Нечетных: ',nch);
end.