program array
int dimension(10)::a
int::i

do i=0,9
a(i)=i*2
end do

do i=0,9
print*,a(i)
end do

end program array