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

Program znanija;uses crt;var x,k:integer;beginclrscr;writeln( 'Введите число: ' );Readln(x);while x>1 do beginif x mod 2=0 then k:=k+1;x:= x div 10; end;writeln( 'Количество чётных чисел в числе= ',k );Readln;End.