Напечатать массив а(1..6), заданный счётчиком случайных чисел в интервале от -7 до 7.

Var
  i:integer;
  a:array [1..6]of integer;
begin
for i:=1 to 6 do
  begin
  a[i]:=random(-7,7);
  write(a[i],' ');
  end
end.