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.
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.