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

Var   A,S,k:longint;Begink:=0;Read(A);While A<>0 do   Begin   S:=0;   A:=Abs(A);   While A > 0 do      Begin      S:=S+A mod 10;      A:=A div 10;      End;   if S=10 then k:=k+1;   Read(A);   End;WriteLn('Искомое количество: ',k);End.