program ideone;
Var 
   A : array [-100..100] of integer ; 
   I : integer ; {переменная I вводится как индекс массива} 
Begin 
   For i:=-100 to 100 do 
      a[i] := i;
      
   For i:=-100 to 100 do 
      Write(a[i]);
      
end.