input1.txt

词 法 分 析 器 Delphi7.0 很好的 东西 啊

 program ex_1 ( input , output );
 var n , s : integer ;
  begin
   n :=0; n := 1;
   while n <= 100 so 
    begin 
      n :=0; n :=1;
     while n <=100 do
      begin 
        s :=s+n;
         n := n+1
   end ;
    write (' s = 's)
 end .