program W implicit none integer::X,Y,L read*,X,Y,L print"(i0)",merge(2,merge(1,0,X/=0),Y<0)& +(abs(X))/L+merge(1,0,mod(ABS(X),L)/=0)& +(abs(Y))/L+merge(1,0,mod(ABS(Y),L)/=0) end program W