дан одномерный массив A1,A2...,An. Все элементы с нечетными номерами разделить нацело на первый элемент

vara:array[1..512] of integer;i,n:integer;beginwriteln('vvedite rezmer massiva');readln(n);for i:=1 to n dobeginwrite('a[',i,']=');readln(a[i]);if (i<>1) and (i mod 2<>0) then a[i]:=a[i] div a[1];end;write('rezultat ');for i:=1 to n dowrite('a[',i,']=',a[i],' ');end.