写控制台程序,可以在File| new 创建控制台程序。也可以在记事本里直接写,把下面的代码存为 XXX.dpr 文件就行了。program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  Hello = '你好!我写三行,你输入一行咱们退出去';
var
  str: string;
  wait: char;
begin
  // Insert user code here
  Writeln(Hello);
  Writeln(Hello);
  Writeln(Hello);
  Readln(str);
  WriteLn('你输入了:'+ str);
  read(wait);
end.
写控制台程序,可以在File| new 创建控制台程序。也可以在记事本里直接写,把下面的代码存为 XXX.dpr 文件就行了。program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  Hello = '你好!我写三行,你输入一行咱们退出去';
var
  str: string;
  wait: char;
begin
  // Insert user code here
  Writeln(Hello);
  Writeln(Hello);
  Writeln(Hello);
  Readln(str);
  WriteLn('你输入了:'+ str);
  read(wait);
end.