var x,y,z:word;function f(x,y,z:word):word;begin f:=z;if x>y then f:=f(f(x-5,y,z),f(y-5,z,x),f(z-5,x,y))end;begin repeat read(x,y,z);writeln(f(x,y,z))until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).