下列程序的运行结果是（）。 
Program main
   implicit none 
   integer, target :: a=1   
   integer, pointer :: p
       p=>a
       p=3
   write(*,*)a 
end

下列程序的运行结果是（）。 
Program main 
 implicit none
 integer ::a=1
   integer ::b=2
 call add ( a )
   Call add ( b)
 Write(*,*) a , b
 Stop
  end 
Subroutine  add (sum) 
Implicit none 
integer :: sum
   sum=sum+1 
Return 
end 

下列程序的运行结果是（）。 
Program test 
    Implicit none 
    Integer,parameter:: limit=10 
    Integer counter 
    Integer:: ans=0 
    Counter=2 
   do while(counter<=limit)
     ans=ans+counter
     counter=counter+2
  end do
Wrte(*,*)ans
end 

下列程序的运行结果是（）。 
Program test 
Implicit none 
Integer::i 
Integer::a(5)=(/ (i, i=1,5) /) 
Integer::b(5)=0
      Where (a<3)
           b=a 
   End where 
Write(*,”(5(i3,1x))”) b 
end

下列程序的运行结果是（）。
Program test 
Implicit none
Integer::sum,i 
sum=0.0
   do i=1,203,2
      sum=sum+i
 end do 
write(*,*) i
end

下列程序的运行结果为（）。
        Program main
      Implicit none
      Real :: a, b, m
             A=2.0
             B=76.0 
           If(a                M=a
               A=b
               B=m
             End if 
       Write(*,*) “a=”,a “b=”,b
          end

下列程序运行结果为（）。 
Program main 
Implicit none 
Integer：：floor=5，i
      Do  i=1， floor
         If（i==3）cycle
         If（i==4）cycle 
          Write（*，*）i
          End do
       end