Оформить ввод элементов массива m[-1..12] с клавиатуры.

Begin
  var  i : integer;
  var arr : array [-1..12] of integer;
  for i:=-1 to 12 do
    read(arr[i]);
end.
//Pascal ABC