program main implicit none integer n, a, b, c read *, n a = n / 100 b = (n - a*100) / 10 c = mod(n, 10) if (a + c == b) then write (6, fmt="(A)") "Yes" else write (6, fmt="(A)") "No" end if end program main