Question

为什么Delphi运行程序时一闪而过？

用Delphi的控制台写了一个简单的程序，可是运行时屏幕却是一闪就没了，这是怎么回事？是不是Delphi里面也有像C里面类似getch停屏的指令？源程序如下：
program graph(input,output);

{$APPTYPE CONSOLE}

uses
SysUtils;
const
pi= 3.14159;
var
i, wide: integer ;
y: real ;
begin
{ TODO -oUser -cConsole Main : Insert code here }
for i:=0 to 24 do
begin
y:=sin(i*15*pi/180);
wide :=round (35*y+40);
writeln('*',wide)
end
end.

Answer 1

用ReadLn;就行了