program main implicit none integer::L(1:3),LA(1:3),LS(1:3) integer::RBY(1:3),RBYS(1:3) read *,L,RBY LA(1) = L(2) + L(3) LA(2) = L(3) + L(1) LA(3) = L(1) + L(2) LS(1) = MINVAL(LA) LS(3) = MAXVAL(LA) LS(2) = SUM(LA)-MINVAL(LA)-MAXVAL(LA) RBYS(3) = MINVAL(RBY) RBYS(1) = MAXVAL(RBY) RBYS(2) = SUM(RBY)-MINVAL(RBY)-MAXVAL(RBY) print '(i0)', DOT_PRODUCT(RBYS,LS)*2 end program main