程序执行后怎么返回开始，输入新参数重新开始

Question

比如我写个a+b
执行后得到结果
按回车跳回开始
input a，b
这个要怎么写

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
  Repeat
    a := strToint(InputBox('提示','请输入a的值','0'));
    b := strToint(InputBox('提示','请输入b的值','0'));
    ShowMessage('a + b = '+IntToStr(a+b));
  until False;
end;

Answer 2

估计楼主要求的是一个控制台程序……
program Project1;{$APPTYPE CONSOLE}uses
  SysUtils;var
  a, b: Integer;
  c: Char;begin
  repeat
    Write('Please Input a,b: ');
    Readln(a, b);
    Writeln(IntToStr(a) + '+' + IntToStr(b) + '=' + IntToStr(a + b));
    Readln(c);
  until c <> #13;
end.