program Project2;

{$APPTYPE CONSOLE}

var
    i,n,s:integer;
begin
  s:=0;
  readln(n);
  for i:=12 to n do
  if i mod 3=0 then s:=s+i;
  writeln('suma=',s);
  readln;
end.


end.