Одномерный массив составьте программу ввода и вывода массива : 5,-2,3,-6,7,9,-4,8,1,2,7,-3

Const n=12;
var a:array [1..n] of integer; i,j:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i],' ');
end.