Написать программу на Pascal, которая позволяет ввести с клавиатуры 9 элементов массива целого типа и выводит их на экран в столбик

const  n = 9;

var  i: integer; 
a: array[1..n] of integer;

begin  for i := 1 to n do   
read(a[i]); 
for i := 1 to n do   
writeln('a[', i, ']=', a[i]);
end.

Напиши пожалуйста в столбик)