pascal初学者问题,急!!!!!

Question

输入三个数,按由大到小顺序打印出来怎么编,只用if,case语句

Answer 1

要是不嫌烦就写：
if ((x1>x2) and (x1>x3) and (x2>x3)) then write(x1,x2,x3)
else if ((x1>x2) and (x1<x3) and (x2<x3)) then write(x3,x1,x2)
...............

Answer 2

define swap(a,b) begin t:=a; a:= b;b:=t;end;
var
a,b,c:integer;
t:integer;
begin
 
if (a>b) then
  if (a>c) then
  begin
    showmessage(IntoToStr(a));
    if (b>c) then
begin
    showmessage(IntoToStr(b));
    showmessage(IntoToStr(c));
end;
        else
begin
    showmessage(IntoToStr(c));
    showmessage(IntoToStr(b));
end;  
  else
begin
    showmessage(IntoToStr(c));
    showmessage(IntoToStr(a));
    showmessage(IntoToStr(b));
end;
else
   if (b>c ) then
        if (a>c) then
         begin
         
....
哎太长，的确写不下去了...