implicit none integer(8) a,b,c,l,m,n read(*,*) l read(*,*) m read(*,*) n a=((n*1)/25) if (.not.a==0) then m=m+a n=n-a*25 end if b=((m*25)/100) if (.not.b==0) then l=l+b m=m-b*4 end if c=((l*100)/1000) if (.not.c==0) then l=l-c*10 end if write(*,*) l+m+n end