program ch1501a
implicit none
real:: x,y,x1,y1,x2,y2,x3,y3,zmod
complex:: z,z1,z2,z3,zbar
   print*,'input x1,y1,x2,y2,x3,y3'
   read*,x1,y1,x2,y2,x3,y3
   z1 = cmplx(1.0,2.0)
   z2 = cmplx(x2,y2)
   print*,'z2 = ',z2
   z3 = cmplx(x3-x1,(y3+y1)**2)
   print*,'z3 = ',z3
   z = z1*z2/z3
   x = real(z)
   y = aimag(z)
   zmod = abs(z)
   zbar = conjg(z)
   print*,'z =',z
   print*,'modulus of z =',zmod
   print*,'complex conjugate of z = ',zbar
end program ch1501a