begin
var n := ReadInteger;
var s := 0;
var i := 2;
while i <= n do
s := s + i * i;
i := i + 2;
end;
Print(s)
end.
Не следует задавать n > 1000
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