var a,i,k,sum:integer;
T:array[1..10]of integer;
begin
for i:=1 to 10 do begin
if(T[i]=0)then sum:=sum+1; //проверка на 0
end;
write(sum);
end.
