Оформить ввод элементов массива 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