衡水做网站服务商,专业搜索引擎seo公司,深圳网站建设方案,PHP做网站案例教程var s:string; begin AllocConsole; try Write(Type here your words and press Enter); Readln(s); ShowMessage(Format(You typed: %s,[s])); finally FreeConsole; end; end;var s:string; begin AllocConsole; try Write(Type here your words and press Enter); Readln(s); ShowMessage(Format(You typed: %s,[s])); finally FreeConsole; end; end;
