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