//reapeat until计算1累加到100的和procedure TForm1.Button1Click(Sender: TObject);
var
i,sum:integer;
begin
i:=1;
sum:=0;
repeat
sum:=sum+i;
i:=i+1;
until i>100;
showmessage('1ÀÛ¼Óµ½100µÄºÍΪ'+inttostr(sum));
end;