program circle1;
{$APPTYPE CONSOLE}
var n,i,s:integer;
begin
readln(n);
s:=0;
for i:=10 to n do
if i mod 3=0 then s:=s+i;
writeln('suma=',s);
readln
end.