Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от - 20 до 20 и четные числа делит на два, а нечетные - умножаем на три
Помогите, срочно!!

vari:integer;a:array [1..15] of integer;beginfor i:=1 to 15 do begina[i]:=Random(-20,20);end;write('Исходный массив ');for i:=1 to 15 do beginwrite(a[i]);write(' ');end;for i:=1 to 15 do beginif (a[i] mod 2 = 0) thena[i]:=a[i] div 2elsea[i]*=2;end;writeln();write('Преобразованный массив ');for i:=1 to 15 do beginwrite(a[i]);write(' ');end;end.