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