task12

begin
  var a := 9bi**24-9bi**9+85;
  //BigInteger.Pow(9,24)
  var k := 0;
  while a>0 do
  begin
    if a mod 9 = 0 then k += 1;
    a := a div 9;
  end;
  print(k);
end.