Знайти кількість парних цифр у числі використовуючи цикл "while.....do" у паскаль
Найти количиство четных цифр в числе используя цикл "while.....do" в паскаль

VarA,N:integer;BeginWriteLn('Введите целое число');Read(A);N:=0;While A>0 do   Begin   if A mod 2 = 0 then N:=N+1;   A:=A div 10;   End;WriteLn(N);End.