Дано натуральное число найдите количество четных и нечетных цифр в нем. написать программу на паскале

Var

A, c, n:integer;

Begin

WriteLn ('Введите натурально число') ;

Read (A) ;

c:=0;

n:=0;

While A>0 do

Begin

if (A mod 10) mod 2 = 0 then c:=c+1;

if (A mod 10) mod 2 0 then n:=n+1;

A:=A div 10;

End;

WriteLn ('Кол-во чётных цифр: ', c) ;

WriteLn ('Кол-во нечётных цифр: ', n) ;

End.