program prob2
    implicit none
    integer :: x1, x2, y1, y2
    integer :: a, b, x3, x4, y3, y4
    character(30) :: s,t,u,v
    read(*,*) x1, y1, x2, y2

    a = x2 - x1
    b = y2 - y1
    x3 = x2 - b
    x4 = x1 - b
    y3 = y2 + a
    y4 = y1 + a
    write(s,*) x3
    write(t,*) y3
    write(u,*) x4
    write(v,*) y4
    write(*,'(a,3(1X,a))') trim(adjustl(s)), trim(adjustl(t)), trim(adjustl(u)), trim(adjustl(v))



    stop
contains
end program prob2