C++ :

#include<iostream>
using namespace std;
int main()
{   int i=0;
	float  x;
	for (;i<=100;i+=1)
	{ x=x+i*i;
	}
	cout<<x<<endl;
		return 0;
}

Pascal :

var a,b,s:longint;
begin
s:=0;
begin
for b:=1 to 100 do
s:=b*b+s;
end;
writeln(s);
end.