program main implicit none integer l,m,n,k read(*,*)l,m,n m=m+n/25 n=n-(n/25)*25 l=l+m/4 m=m-(m/4)*4 k=l/10 l=l-k*10 write(*,*)l+m+n+k end program main