integer::D read *,D print '(i0)',((D/2)/2)*((D/2)-((D/2)/2)) end