program y920 integer(8)::X,Y,Z read(5,*)X,Y,Z print'(i0)',(X+Y+Z)/2 end program y920