Написать программу на 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.