Составьте программу, формирующую одномерный массив, элементы которого равны своему индексу.

Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do a[i]:=i;
for i:=1 to n do write(a[i],' ');
writeln;
end.

Результат:
1 2 3 4 5 6 7 8 9 10