Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т. д. Через сколько таких действий получится нуль?Не моглибывы с Паскаль в Python перевести

gdgbo lqhfcb yffvwnbsgsvvdvdgdv

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

чернила были красные и черные. весь текст писался чернилами черного цвета, а начало  каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.