begin

 var n := ReadInteger;

 var s := 0;

 var i := 2;

 while i <= n do

 begin

   s := s + i * i;

   i := i + 2;

 end;

 Print(s)

end.

Не следует задавать n > 1000