如何用pascal语言表示“输入a,b,c三个不同的数，将它们按由小到大的顺序输出。”？

如何用pascal语言表示“输入a,b,c三个不同的数，将它们按由小到大的顺序输出。”？

晕，我郁闷，楼上的都想把新手绕晕啊？简单问题复杂化！！！

PROGRAM MM（INPUT，OUTPUT）；

VAR A，B，C，D：REAL；

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:=D; END;

IF B<C THEN BEGIN D:=B; B:=C; C:=D; END;

WRITELN(A,B,C);

END.

var a,b,c:integer; procedure swap(var a,b:integer); var t:integer; begin t:=a; a:=b; b:=t; end; begin 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. 如果需要解释，请看这个地址： http://wenwen.soso.com/z/q165437820.htm 是我回答过的相似问题，虽然语言不通，不过思想是一致的。