Напишите программу которая вводит последовательность целых чисел заканчивающихся нулём и определяет сколько из этих чисел

Нам нужно написать программу,которая вводит последовательность целых чисел заканчивающихся нулем и определяет сколько из этих чисел удовлетворяет условию:сумма значений цифр десятичной записи равно 10.Пишем программу:Pascal.program qq;vara,b,s,n:integer;beginrepeatreadln(a);b:=a;s:=0;while b>0 dobegins:=s+b mod 10;b:=b div 10;end;if s=10 then inc(n);until a=0;writeln(n);end. Программа написана.