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