program t implicit none integer::A,B read*,A,B if(mod(B,A)==0)then print"(i0)",B/A else print"(A)","NO" endif end program t