1 procedure count(a: Integer){用来计算100以内的连加}
 2 var
 3   i, sum: Integer;    
 4 begin
 5   if a > 100 then
 6     ShowMessage('输入的数太大')
 7   else if a < 1 then
 8     ShowMessage('输入的数太小')
 9   else
10   begin
11      sum := 0;
12      for i := 1 to a do
13        sum := sum + i;
14   end; 
15   ShowMessage(Format('从1到%d的连加和为%d'),[a, sum]); 
16 end;