! Try yukicoder ! author: Leonardone @ NEETSDKASU PROGRAM yukicoder INTEGER :: a1, a2, a3, b1, b2, b3, p, c READ(*,*) a1, a2, a3 IF (a2 > a1 .and. a2 > a3 .and. a1 /= a3) THEN PRINT '(A)', 'INF' STOP END IF IF (a2 < a1 .and. a2 < a3 .and. a1 /= a3) THEN PRINT '(A)', 'INF' STOP END IF c = 0 DO p = MAX(a1, a2, a3), 1, -1 b1 = MOD(a1, p) b2 = MOD(a2, p) b3 = MOD(a3, p) IF (b1 == b3) cycle IF (b2 > b1 .and. b2 > b3) THEN c = c + 1 ELSE IF (b2 < b1 .and. b2 < b3) THEN c = c + 1 END IF END DO PRINT '(I0)', c END PROGRAM yukicoder