Free Web Hosting Provider - Web Hosting - E-commerce - High Speed Internet - Free Web Page
Search the Web

        n = 7
        if( n <= 10) then
           do 50 i = 1,n
              A(i) = 2*i
              write(*,*) A(i)
           enddo
        endif