C++ :

#include<iostream>
using namespace std;
int main()
{
    int s=0;
    for (int i=1;i<=100;i++) if (i%2!=0 && i%3!=0) s+=i;
    cout<<s;
    return 0;
}

Pascal :

var s,i:integer;
begin
  s:=0;
  for i:=1 to 100 do
  if (i mod 2>0) and (i mod 3>0) then s:=s+i;writeln(s);
end.