我写的第一个DELPHI的控制台程序，留作纪念。

 program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  const s = 'hello' ;
  var a , b , c : integer;

  function myadd(x , y : integer ) : integer ;
  begin
    myadd := x + y ;
  end;

begin
  { TODO -oUser -cConsole Main : Insert code here }

  a := 5;
  b := 7;
  c := myadd(a , b);
  writeln(c);
  writeln(s);

end.