Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем элементы с четными индексами удваивает, а элементы с нечетными индексами утраивает. Выведите на экран исходный и полученный массивы!

большое спасибо)

var a:array [1..10] of integer;b:array [1..10] of integer;i:integer;beginrandomize;for i:=1 to 10 doa[i]:=random(10);for i:=1 to 10 dowrite(a[i],' ');writeln;i:=1;while i<=9 dobeginb[i]:=a[i]*3;i:=i+2;end;i:=2;while i<=10 dobeginb[i]:=a[i]*2;i:=i+2;end;for i:=1 to 10 dowrite(b[i],' ');end.