在线等：用delphi写一个控制台程序，运行后一闪而过，怎么让它暂停一下好观察结果呢？

Question

附源码：
program ezFibonacci;{$APPTYPE CONSOLE}
const
   MAX=50;type
 TFibArray =array[0..MAX] of Integer; function Fibonacci: TFibArray;
var
 i:Integer;
begin
  Result[0]:=1;
  Result[1]:=1;  for i:=1 to MAX do
   Result[i]:=Result[i-1]+Result[i-2];
end;var
  FibArray:TFibArray;
  i:Integer;begin
  FibArray:=Fibonacci;
  for i:=0 to MAX do
    WriteLn(FibArray[i],' ');
end.

Answer 1

我知道delphi有这个问题，也曾被困扰过，解决的办法么：在最后的end.之前加个readln就可以了，等程序写好再删除......

Answer 2

加入一个等待录入就行啦,read 或是readln.

Answer 3

加个readln了，就可以了
但是这样必须要按回车才可以结束程序。

Answer 4

添加Windows单元
使用sleep(1000)暂停程序
1000表示暂停1秒

Answer 5

system('pause');这个试试看
要做控制台程序还不如用VC