Составте программу, которая формирует массив из 12 случайных целых чисел принадлежещих промежутку -5;5 и выводит эти числа в столбец( через Паскаль)

Program Program1;Vara:array [1..12] of integer;i:integer;beginrandomize;for i:=1 to 12 dobegina[i]:=random(11)-5;writeln('a[',i,']=',a[i]);end;end.

var a: array[1..12] of real;

i: integer;

begin

randomize;

for i:=1 to 12 do a[i]:=random(11)-5;

for i:=1 to 12 do writeln(a[i]);

readln;

end.