C++ :

#include<bits/stdc++.h>
using namespace std;
int main()
{
	cout<<((1+100)*34)/2;
	return 0;
}

Pascal :

var
 i,j:integer;
begin
  i:=100;
  while i>=1 do
  begin
  j:=j+i;
  i:=i-3;
  end;
  write(j); 
end.