Pascal :

var
a,b,c:longint;
begin
for a:=1 to 100 do
if a mod 6=0 then c:=c+a;
writeln(c);
end.