控制台读写

program Project1;

{$APPTYPE CONSOLE}

var
  str: string;
begin
  Writeln('请输入：');
  Readln(str);
  Writeln('你输入的是：' + str);
  Readln;
end.