[J-Fobos]

Var
   A : array [1..10] of integer ;
   I :  integer ; {переменная I вводится как индекс массива}
Begin
   For i:=1 to 10 do
      a[i]:=1; { ввод i- го элемента }
end.