write(); //在屏幕上输出字符串
writeln();//在屏幕上输出字符串+ #13
read;//读取
readln;//用于屏幕暂停
//----------------------------------------------
var i,j :Integer;
begin
try
Writeln('请输入i j的数值');
readln(i,j);
if i > j then
writeln('最大的值是 '+inttostr(i))
else
Writeln('最大的值是 '+inttostr(j));
Readln;//press any key to continue
end;
//----------------------------------------------
uses
SysUtils,windows;
begin
winexec('notepad.exe',1)
end.
//----------------------------------------------