Write Read Writeln Readln console

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.
//----------------------------------------------

通过 Wiz 发布