write readln(tempStr); writeln(tempStr,'---！');

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
tempStr : string;
tempInt : Integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('请输入您的大名:') ;
  readln(tempStr);
  writeln(tempStr,'您好，欢迎进入DElphi世界！');

  write('请输入一个整数:');
  readln(tempStr) ;
  tempInt :=StrToInt(tempStr);
  writeln('您输入的数是：',IntToStr(tempInt));

  writeln('按Enter键退出.');
  readln;
end.