控制台读写

新建=》其它=》控制台程序

program Project1;

{$APPTYPE CONSOLE}

var
  str: string;
begin
  Writeln('请输入：');     //函数参数要是string类型
  Readln(str);             //函数参数要是string类型
  Writeln('你输入的是：' + str);
  Readln;
end.