program main implicit none integer*8::P,C read *,P,C print '(f0.15)',DBLE(((2+3+5+7+11+13)**P)*((4+6+8+9+10+12)**C)) & /DBLE(6**(P+C)) end program main