алг
нач
цел a, s
s:=0
ввод a
нц пока a<>0
s:=s+1
ввод(a)
кц
вывод(s)
кон
Если будут ошибки отписаться
алг
нач
цел a, s
s:=0
ввод a
нц пока a<>0
s:=s+1
ввод(a)
кц
вывод(s)
кон
Если будут ошибки отписаться