var
  x, j, n, i: integer;
  a: array [1..20] of string;

begin
  write('Введите кол-во чисел: ');
  read(n);
  writeln('Введите числа: ');
  for i := 1 to n + 1 do 
  begin
    readln(A[i]);
    for j := 1 to length(A[i]) do
      if a[i][j] = '0' then inc(x);
  end;
  writeln('Кол-во нулей: ', x);
end.