nml

ClrScr;
for i:=1 to n do
begin
Write('Введите ',i:2, '-й элемент:');
Readln(a[i]);
end;
end;