Составить программу на паскале.
Дано натуральное число:
а) Найти количество четных цифр;
б) Верно ли, что цифра а встречается в числе более двух раз а вводится с клавиатуры.

var a,b,c,c1,a1:integer;beginwrite('введите число => ');readln(a);write('введите число а => ');readln(a1);c:=0;c1:=0;while (a<>0) do beginb:=a mod 10;a:=a div 10;if (b mod 2 =0) then c:=c+1;if (b=a1) then c1:=c1+1;end;writeln('количество чётных цифр =>', c);if (c1>2) then writeln('а встречается в числе больше двух раз');end.