program if2
      write(*,*)'What is your number?'
      read(*,*) a
      if(a>=0)then
        write(*,*)'Positive'
       else
        write(*,*)'Negative'
      end if
      end