delphi入门-控制台console application

1 program Project1;
2 uses Windows;
3 begin
4   MessageBox(0,PChar('Ok!'),PChar('Title'),0);
5 end.

program Project1;

{$APPTYPE CONSOLE}

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