Tak z _FIXED_ by uru

type W=word;var x,y,z:W;function f(x,y,z:W):W;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).

download

return to the top page