pascal编程:求l到200中偶数相加的和

var i,sum:longint;
begin
for i:=1 to 200 do
if(i mod 2=0)then sum:=sum+i;
writeln(sum);
end.
在线打的,如有错,请谅解.
再问： 求所有三位数的和
再答： var i,sum:longint; begin for i:=100 to 999 do sum:=sum+i; writeln(sum); end. 给点分吧！
再问： 最后一题：N!＝1*2*3*…..*N。用键盘输入N(N