Pascal :

var i,s,n:longint;
begin
 read(n);
 for i:=1 to n do
 if i mod 2=0 then s:=s+i;
 write(s);
end.