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;