var i, n, s: integer;begin readln(n); for i := 1 to n do begin if(i mod 2 = 0) then s := s + sqr(i); end; writeln(s);end.
