Question

pascal 语言if语句 在线等 20 只要看看我哪里错了 输出不了

var
a,b,c:longint;
begin
read(a,b,c);
if (a<b) then a:=b;
end.
if (a<c) then a:=c;
end.
if (b<c) then c:=b;
end;
writeln(a,' ',b,' ',c);
end.
以上是我的 因为刚学所以很多不会 能run就是不能输出
题目是：任意输入三个数 a、b、c，按由大到小的顺序打印出来

Answer 1

看程序第6、8行，end后面要加逗号，所以程序如下
var
a,b,c:,tlongint;
begin
read(a,b,c);
if (a<b) then begin t:=a;a:=b;b:=t;t:=0;end;
if (a<c) then begin t:=a;a:=c;c:=t;t:=0;end;
if (b<c) then begin t:=b;b:=c;c:=t;t:=0;end;//=b;
writeln(a,' ',b,' ',c);
end.
对的，不对请追问

Answer 2

改成：
var
a,b,c:longint;
begin
read(a,b,c);
if (a<b) then a:=b;

if (a<c) then a:=c;

if (b<c) then c:=b;

writeln(a,' ',b,' ',c);
end.