program main implicit none integer::D,dd,ddd read *,D dd = D/2 ddd = dd/2 print '(i0)',(ddd)*(dd-ddd) end program main