integer::x,y,r read *,x,y,r print '(i0)',abs(x)+abs(y)+CEILING(r*1.41421356) end