Возможно я не прав,но мне кажется,что наилучшими решением будет переместить все фигуры в центр доски,но по каким-то причинам это не работает...
import Control.Monad
brd :: Int -> Int
brd n= sum $ [8*p*p|p<-b] where
b = [1..div n 2]
main =do
t <- fmap read getLine
ns <- replicateM t (fmap read getLine)
forM_ ns (print . brd)