program main implicit none integer::n integer(8)::i,j,k,l,m,x,y,z read*,n x=n/2 y=n-x print*,(x+1)*(y+1)-1 end program