ACM

 

 

2、求三个数的大小顺序：输入三个数，按由大到小顺序打印出来。

var a,b,c,tem:integer;
begin
  readln(a,b,c);
  if(a < b) then begin
        tem := a;
        a := b;
        b := tem; end;
  
  if(a < c) then begin
        tem := a;
        a := c;
        c := tem; end;
        
  if(b < c) then begin
        tem := b;
        b := c;
        c := tem; end;
   
   writeln(a,' ',b,' ',c);
end.