Ответ:

program Hello;

var i:integer; A:array[1..7] of integer;

begin

 for i:=1 to 7 do begin

 writeln('Элемент массива ', i, ': ');

 readln(A[i]);

 end;

 writeln('Введите номер элемента!');

 readln(i);

 writeln(A[i]);

end.