翻译成pascal语言：任意输入3个数，让它们从小到大排列

Answer 1

var a:array[1..3]of string;
i,j:longint;
begin
readln(a[1],a[2],a[3]);
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]>a[j] then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=1 to 3 do write(a[i],' ');
end.

Answer 2

var a:array[1..4] of longint;i,j:longint;
begin
readln(a[1],a[2],a[3]);
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]>a[j] then begin a[4]:=a[i];a[i]:=a[j];a[j]:=a[4];end;
writeln(a[1],a[2],a[3]);
end.

Answer 3

var a,b,c,i,t:integer;
begin
readln(a,b,c);
if a>b then begin t:=a;a:=b;b:=t;
if b>c then begin t:=b;b:=c;c:=t;
if a>c then begin t:=a;a:=c;c:=t;
writeln(a,b,c);
end.