program abc;
  var a,b,c,t:longint;
  begin
    readln(a,b,c);
     if a<b then
       begin
        t:=a;a:=b;b:=t;
       end;
     if a<c then
       begin
        t:=a;a:=c;c:=t;
       end;
     if b<c then
       begin
        t:=b;b:=c;c:=t
       end;
  writeln(a,' ',b,' ',c,' ');
  readln
  end.

我是新手 请多多指教

我的程序:

program abc_mxalbert1996(input,output);
var a,b,c:integer;

procedure swap(var x,y:integer);
  var t:integer;
  begin
    t:=x;
    x:=y;
    y:=t;
  end;

begin
  write('Please input a, b, c: ');
  readln(a,b,c);
  if a<b then swap(a,b);
  if a<c then swap(a,c);
  if b<c then swap(b,c);
  writeln(a,'  ',b,'  ',c);
  readln;
end.

是用过程编的，比楼上的简便一些
（我也4新手）

var
  a:array[1..3] of integer;
  m:integer;
begin
  readln(a[1],a[2],a[3]);
  if a[1]<a[2] then begin m:=a[1]; a[1]:=a[2]; a[2]:=m; end;
  if a[1]<a[3] then begin m:=a[1]; a[1]:=a[3]; a[3]:=m; end;
  write(a[1],' ');
  if a[2]>a[3] then m:=a[2]
               else m:=a[3];
  writeln(m,' ',a[2]+a[3]-m);
end.

我也是新手呀