readln(a[1],a[2],a[3])；读入
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]