Delphi简单控制台程序

program Project2;

{$APPTYPE CONSOLE}
{$R *.res} //此处我引入了别的程序编译好的资源文件,用来改变控制台程序的默认图标!!!!!
uses
Windows,
SysUtils;
var
a,s:double;

function Max(x,y:double):double; //写一个输出两数最大值的函数过程
begin
if x>y then
begin
result:=x;
end
else
result:=y;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('');
Writeln('===============Console Application Test!===============');
Writeln('请输入任意数字');
//writeLn('you are winner,I think you can successfully!');
ReadLn(a);
Writeln('您刚才输入的数字是'+FloatToStr(a));
Writeln('请再次输入任意数字');
Readln(s);
Writeln('您刚才输入的数字是'+FloatToStr(s));
Writeln('您刚才输入的两数最大的是'+FloatToStr(Max(a,s))); //引用上面定义的函数输出最大值，
Readln;

end.