Cоставьте программу уменьшения значения всех элементов массива на 4

program MASSX;var  mass : array [0..10] of integer;  i, b : integer;begin  b := 10;  randomize;    for i := 1 to b do    begin      mass[i] := random(10, 110);      mass[i] := mass[i] - 4;      writeln(mass[i]);    end;end.