do i=a1, a2, a3
   a[i]
   b[i]
end do

-------------------

do i=a1, a2-a3*(x-1), x*a3
   a[i]
   b[i]
   a[i+a3]
   b[i+a3]
   a[i+2*a3]
   b[i+2*a3]
   ...        x times
end do

do i1=i, a2, a3
   a[i1]
   b[i1]
end do