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

Var a:array [1..10] of integer;
b:array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10);
for i:=1 to 10 do
write(a[i],' ');
writeln;
i:=1;
while i<=9 do
begin
b[i]:=a[i]*3;
i:=i+2;
end;
i:=2;
while i<=10 do
begin
b[i]:=a[i]*2;
i:=i+2;
end;
for i:=1 to 10 do
write(b[i],' ');
end.