program sample
  implicit none

  integer(8) :: x1,y1,x2,y2,x3,y3,x4,y4

  

  ! 整数を読み込む
  read(*,*) x1,y1,x2,y2
  x3=x2-y2+y1
  y3=y2+x2-x1
  x4=x3-y3+y2
  y4=y3+x3-x2

    write(*,*)x3,y3,x4,y4

  
  stop
end program sample
