ввести целое число и найти сумму его цифр ( с выводом "Сумма цифр числа ", a ," равна ", b) кумир

алг Число
нач
  цел a, n, b
  вывод "Введите целое число", нс
  ввод a
  n:= a
  b:= 0
  нц пока n<>0
    b:= b+mod(n,10)
    n:= div(n,10)
  кц
  вывод "Сумма цифр числа ", a ," равна ", b
кон