Создайте программу которая заполняет массив из 15 элементов случайными целыми числами в диапазоне от 1 до 100 , а затем преобразовывает уменьшая на 5.

Var  m : array[1..15] of Integer;  i : Byte;Begin  For i:=1 to 15 do  Begin     m[i]:=Random(100)+1;     Write(m[i]:10);   m[i]:=m[i]-5;    Writeln(m[i]:10);  end;end.