program output_complex
         implicit none
         complex a 
         real ::  b , c
         write(*,*)"Please input complex a  "
!         a=(100,200)
!         write(*,*) "a = ", a
          write(*,*)" complex a , please input real part  "
          read(*,*) b
          write(*,*)" complex a , please input Imaginary part  "
          read(*,*) c
          a=cmplx(b,c)
          write(*,*)" complex a = " , a

          write(*,*)" complex a ,  real part  "
          write(*,*) real (a)
          write(*,*)" complex a ,  Imaginary part  "
          write(*,*) aimag(a)
!          write(*,*) b , c
!          read(*,*) a
!           a=(b,c)
!          write(*,*) a
!         write(*,*) b
!          write(*,*) a+b/2
!          write(*,*)" Leaves the program , Please input not equal to 1"
!          read(*,*) S
        stop 
        end program output_complex