consolep.dpr

dephi的一些小程序啊

program max3if;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var a,b,c,max:integer;
begin
  write('a,b,c=?');
  readln(a,b,c);
  if a>b
  then max:=a
  else max:=b;
  if c>max
  then max:=c;
  writeln('max=',max);
  readln;
end.