加 Readln;语句
------------------------
以下是一个源码实例:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b,c:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('输入 a : ');
Readln(a);
Write('输入 b : ');
Readln(b);
c := a+b ;
Writeln('a+b=: ',c);
Writeln('按
Readln;{ 加上这句话即可}
end.