  


  ,    var: 

  program variableDeclarations; 
  var 
    index: integer; 
    field: array[1..15] of integer; 
  begin 
    for index := 1 to 15 do 
      field[index] := 10; 
  end. 

