implicit none integer:: b,c read(5,*) b,c if (b==c) then write(6,*) "Yes" else write(6,*) "No" endif end