Напишите пропущенные команды.ввести с клавиатуры массив в,из 13 элементов целого типа,нумерация элементов начинается с 1 и вывести все элементы массива уменьшенные на 71.паскаль

program mass;

var

 B: array [1..13] of integer;

begin

 for var i := 1 to 13 do

 begin

   readln(b[i]);

   b[i] := b[i] - 71;

 end;

 for var i := 1 to 13 do

   write(b[i], ' ');

end.