program main implicit none type point integer::x,y end type point integer::a,b,c integer::i,dx,dy type(point)::p(4) read *,p(1:3) do i=1,3 a = MOD(i,3) +1 b = MOD(i+1,3)+1 c = MOD(i+2,3)+1 dx = p(b)%x-p(a)%x dy = p(b)%y-p(a)%y if((p(a)%x-dy.eq.p(c)%x .and.p(a)%y+dx.eq.p(c)%y) .or. & (p(a)%x+dy.eq.p(c)%x .and. p(a)%y-dx.eq.p(c)%y)) then print '(i0," ",i0)', p(b)%x+p(c)%x-p(a)%x, p(b)%y+p(c)%y-p(a)%y return end if end do print '(a)', "-1" end program main