Составьте программку определения количества четных и нечетных цифр в записи данного

ответ к заданию

Program Praktik6;
Uses crt;
var x,y: Longint; chet,nechet:word;
begin
nbsp;nbsp;nbsp;Write (Введите целое число );
nbsp;nbsp;nbsp;Readln (x);
nbsp;nbsp;nbsp;Chet:=0;
nbsp;nbsp;nbsp;Nechet:=0;
nbsp;nbsp;nbsp;While (xgt;0) do
nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;Y:= x mod 10;
nbsp;nbsp;nbsp;nbsp;nbsp;if Y mod 2=0 then chet:=chet+1 else nechet:=nechet+1;
nbsp;nbsp;nbsp;nbsp;nbsp;x:=x div 10
nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;Writeln (число четных чисел одинаково ,chet);
nbsp;nbsp;nbsp;writeln (число нечетных чисел одинаково ,nechet);
nbsp;nbsp;nbsp;Readkey
End.