program Zada4a_2;

{$APPTYPE CONSOLE}
var
n,s,i:integer;
begin
write('n=');readln(n);
S:=0;
For i:=n to 50 do
if i mod 2=0
then S:=S+i;
writeln('S=',S);
readln;
end.