新手求教，
从键盘读入三个数，按从大到小的顺序把它们打印出来。（★，If条件语句）

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

有人吗？

我是编程方面比较菜鸟的，最近在学《聪明人的游戏——信息学探秘》这本书，有两题不会，分别是第二章综合练习中的一二两题（animal）和（teasu），大家能帮帮我吗？下午就要拿去提交评测了，请大家帮个忙吧！