Решите пожалуйста 1) Задать массив m(9) случайными числами от 21 до 47 2) Уменьшить на 3 элементы массива, кратные 5

Const  n=9;var  i:integer;  m:array[1..n] of integer;begin  Randomize;  for i:=1 to n do  begin m[i]:=Random(27)+21; Write(m[i],) end;  Writeln;  for i:=1 to n do begin    if m[i] mod 5=0 then m[i]:=m[i]-3; Write(m[i],)    end;  Writelnend.Пример работы программы34 30 40 28 30 47 23 41 30 34 27 37 28 27 47 23 41 27