C++ :

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

Pascal :

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