var
  a: array [1..10] of longint;
  i, k: byte;
begin
  write('a   ');
  for i := 1 to 10 do
  begin
    write(i:3);
  end;
  write(#13, 'a[i]');
  for i := 1 to 10 do
  begin
    a[i] := random(9);
    write(a[i]:3);
  end;
  writeln();
  for i := 1 to 10 do
    if (a[i] = 0) then
      a[i] := 1;
  write('b[i]');
  foreach buf: longint in a do
    write(buf:3);
end.