1.дано целое число а. определить количество цифр в числе, которые больше 6. 2.сумма в а руб. лежит на расчетном счету. на сумму начисляется в% каждый год прибыли. прибыль со счета не снимается. через сколько лет данная сумма удвоится.

Program zz;
var n,x,a:integer;
begin 
readln(a); 
while a>0 do 
begin   
x:=a mod 10;   
if x<6 then n:=n+1;   
a:=a div 10; 
end; 
writeln(n);
end.