用Turbo Pascal 7.0编一个程序。把a,b,c三个数从大到小输出

var a,b,c,d:longint;
begin
readln(a,b,c);
if a>b then begin d:=a;a:=b;b:=d;end;
if a>c then begin d:=a;a:=c;c:=b;b:=d;end;
if b>c then begin d:=b;b:=c;c:=d;end;
writeln(a,' ',b,' ',c)
end.

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