program W implicit none integer(16)::X,Y,Z read*,X,Y,Z print"(I0)",Z-merge(1,0,X<=Z)-merge(1,0,Y<=Z) end program W