Pascal

const     
n = 100; // Максимальное число элементов      
var   a : array [1..n] of integer;   
L,i,c,s,k : integer;    
begin 
L := 1; 
c := 10;   
while c <> 0 do   
begin   
readln (c);   
a[L] := c;   
L := L + 1; 
end; 
 l := l -1;  
k := 0;   
for i := 1 to L do    
begin   
c := a[i];   
s := 0;     
while c <> 0 do     
begin       
s := s + c mod 10;       
c := c div 10;     
end;     
if s = 10 then     
k := k + 1;   
end; 
writeln (); 
writeln (k);     
end.