Cоставьте программу которая формирует массив из пятнадцати случайных чисел от -20 до 20 и четные числа делит на два, а нечетные - умножает на 3. ( 9 класс).

vari : integer;a: array [1..15] of integer;begin

//заполним массивfor i:=1 to 15 dobegina[i]:=random(20)-10;if  (a[i] mod 2)=0 then a[i]:=round(a[i]/2) else  a[i]:=a[i]*3 end; //распечатаем результатfor i:=1 to 15 do writeln (a[i]);  end.