integer*8::n read *, n print '(i0)',((n-1)/2)**2 end