program main implicit none integer*8::AX=0,AY=0 integer*8::lm,um print '("0 -1")' read *, lm print '("1000000000 -1")' read *, um AX = (lm-um)/2+500000000 print '("-1 0")' read *, lm print '("-1 1000000000")' read *, um AY = (lm-um)/2+500000000 print '(i0," ",i0)',AX,AY end program main