Составьте программу ввода и вывода массива; 3,4,-9,8,1,-6,2,-5,-1,7,5,9.

Var a: array[1..50] of Integer;
x,i: integer;
begin
writeln('количество элементов в массиве:');
readln(x);
for i:=1 to x do
begin
readln(a[i]);
end;
for i:=1 to x do
begin
writeln(a[i]);
end;
end.