program Project1;
{$APPTYPE CONSOLE}
var N,i,S:integer;
begin
writeln('Vvedit chyslo N');
readln(N);
for i:=10 to N do begin
if i mod 3=0 then
s:=s+i;end;
writeln('Suma chysel S=',S);
readln;
end.