program main implicit none integer::s,f,a read *, s,f a = s /f a = a + 1 write (*,*) a stop end program main