C :

#include <stdio.h> 
int main()
{
int a=0;
for (int i = 1; i <=100 ; i++)
{
	if (i%2==0 && i%3==0)
	{
		a=a+i;
	}
}

printf("%d",a); 
}

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.