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, +9);
    write(a[i]:3);
  end;
  writeln();
  foreach buf: LongInt in a do
    if (buf < 0) then
      k += 1;
  writeln('> ', k);
end.