题目：
求1+2+3+。。。+100的和并输出。
代码：
1 program work20161206; 2 var 3 i,s:integer; 4 BEGIN 5 s:=0; 6 for i:= 1 to 100 do 7 begin 8 s:=s+i; 9 end; 10 writeln(s); 11 END.
老师的答案：
