program main

complex z1,z2 
real a,b,c,d
print*, "type value of a,b,c,d" 
!a=1; b=2; c=3; d=4
read(*,*) a,b,c,d 
z1=cmplx(a,b)
z2=cmplx(c,d) 
print*,"z1+z2=",z1+z2
print*,"z1*z2=",z1*Z2
print*,"z1**z2=",z1**z2
print*,"conjugate of z1:",conjg(z1)
print*,"conjugate of z2:",conjg(z2)
end program main