C++ :

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

Pascal :

var i,s:longint;
begin
    s:=0;
    for i:=1 to 200 do
    begin
        s:=s+i;
    end;
end.