const
  n = 10;

var
  i, j, kol, m :integer;
  
  a :array [1..n] of integer;
  b :array of integer;

begin

  kol:= 0;
  for i:= 1 to n do
  begin
    readln(a[i]);
    if a[i] = 0 then
      inc(kol);
  end;
  
  if kol = 0 then
    m:= 0
  else
  begin
    SetLength(b,kol+1);
    j:= 1;
    for i:= 1 to n do
      if a[i] = 0 then
      begin
        b[j]:= i;
        inc(j);
      end;
    write('Массив B:');
    for i:= 1 to kol do
      write(b[i]:4);
  end;

end.