ИКТ СРОЧНО НУЖНА ПОМОЩЬ В КУМИРЕ

алг
нач
  цел А, к = 0
  вывод "Ввеите целое, неотрицательное число число:", нс
  ввод А
  нц пока А > 0
    к:=к+1
    А:=div(А,10)
  кц
  вывод "Кол-во цифр введённого числа: ", к
кон