Для массива чисел А1А2...Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2

Не написана среда программирования, пишу на qbasic

CLSINPUT nDIM a(n)FOR i = 1 TO n INPUT a(i)NEXT iFOR i = 1 TO n IF i MOD 2 > 0 THEN a(i) = a(i) * 2 ELSE a(i) = INT(a(i) / 3) END IFNEXT iPRINTFOR i = 1 TO n PRINT a(i);NEXT i

Pascal

var a: array[1..n] of real;

      n,i: real;

begin

write('vvedite kolichestvo elementov');

readln(n);

randomize;

for i:=1 to n do a[i]:=random(100);

for i:=1 to n do begin if odd(i) then a[ i]:=a[ i]*2 else a[ i]:=a[ i]/3; end;

write(a[i]);

readln;

end.