Ответ:

program vvod;

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

begin

write('Введите количество элементов в массиве');

readln(N);

for i := 1 to N do readln(a[i]);

for i := 1 to N do writeln(a[i],' ');

end.

Примечание:

Прошу обратить внимание, что данный фрагмент программы на языке Pascal не будет работать, ибо данная среда программирования не поддерживает создание динамических массивов, что пытаются сделать в данной программе. Пожалуйста, сообщите об этом вашему преподавателю.