Program test_2015_3;
var
sum,i, max: longint;
begin
readln(max);
sum:=0;
for i:=1 to max do
begin
if i mod 2=0 then
sum:=sum+i;
end;
writeln(sum);
end.
输入：200
输出：10100