do
read*,i,j,k
print'(i0)',n(i,j,k)
enddo
end
recursive function n(i,j,k)result(m)
m=k
if(i>j)m=n(n(i-5,j,k),n(j-5,k,i),n(k-5,i,j))
end