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

Vara:array[1 ... 512] of integer;

i, n:integer;

begin

writeln ('vvedite rezmer massiva') ;

readln (n) ;

for i:=1 to n do

begin

write ('a[', i,']=') ;

readln (a[i]) ;

if (i1) and (i mod 20) then a[i]:=a[i] div a[1];

end;

write ('rezultat ') ;

for i:=1 to n do

write ('a[', i,']=', a[i],' ') ;

end.