C++ :

#include<bits/stdc++.h>
using namespace std;
int s;
int main()
{
	for(int i=1;i<=100;i++)
		s+=i;
	cout<<"s="<<s;	
	return 0;
}

Pascal :

var i,s:integer;
begin
 for i:=1 to 100 do
   s:=s+i;
 writeln('s=',s);
end.