Ответ:
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 не будет работать, ибо данная среда программирования не поддерживает создание динамических массивов, что пытаются сделать в данной программе. Пожалуйста, сообщите об этом вашему преподавателю.