Дан массив a(n). у нечётных элементов отбросить дробную часть числа, а у элементов с индексами, остаток 1 при делении на 3, отбросить целую часть числа. как будет выглядеть программа в паскале?

Основная часть программы:
for i = 0 to n-1 do begin
if i%2 = 0 then
A[i] = A[i] div 1;
if i%3 = 0 then
A[i] = A[i] mod 1;
end;

Программа работает при A[0..n-1]
всего чисел в массиве n
Часть кода до этого момента (всё до begin и забивание массива) не пишу, т. к. это очень легко.
Если он понадобится, напишите