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

const n=10;var a:array[1..n] of integer;i:integer;beginfor 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