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

Program n1;

var a: array[1 ... 15] of integer;

i: integer;

begin

write ('исходный массив: ') ;

for i:=1 to 15 do begin

a[i]:=random (41) - 20;

write (a[i],' ') ;

end;

writeln;

write ('полученный массив: ') ;

for i:=1 to 15 do begin

if a[i] mod 2=0 then a[i]:=trunc (a[i]/2) else a[i]:=a[i]*3;

write (a[i],' ') ;

end;

end.