C++ :

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

Pascal :

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