program if1
      write(*,*)'your numer?'
      read(*,*) a
      if (a<0) a = (-1)*a
      write(*,*)'It is now',a
      end