pascal:

　　var

　　s,i,x,t:longint;

　　begin

　　s:=0;

　　forx:=100to1000dobegin

　　t:=0;

　　fori:=1toxdoifxmodi=0thent:=t+1;

　　ift=2thens:=s+x;

　　end;

　　writeln('S=',s);

　　end.