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

Vari:integer;a:array [1..15] of integer;
begin
for i:=1 to 15 do begin
a[i]:=Random(-20,20);
end;
write(Исходный массив );
for i:=1 to 15 do begin
write(a[i]);write( );
end;
for i:=1 to 15 do begin
if (a[i] mod 2 = 0) then
a[i]:=a[i] div 2
else
a[i]*=2;
end;
writeln();
write(Преобразованный массив );
for i:=1 to 15 do begin
write(a[i]);
write( );
end;
end.