pascal冒泡 判断三个数是否相连

pascal冒泡 判断三个数是否相连

var a:array[1..3]of integer;
i,j,t:integer;
begin
for i:=1 to 3 do read(a[i]);
for i:=1 to 2 do
for j:=1 to 3-i do
if a[j]>a[j+1] then
begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end;
if (a[2]=a[1]+1)and(a[3]=a[2]+1) then writeln(TRUE) else writeln(FALSE);
end.追问......那...用一般的方法吧，不要冒泡了。麻烦啦追答var a,b,c,t:integer;
begin
readln(a,b,c);
if a>b then begin t:=a; a:=b; b:=t end;
if a>c then begin t:=a; a:=c; c:=t end;
if b>c then begin t:=b; b:=c; c:=t end;
if (b=a+1)and(c=b+1) then writeln(TRUE) else writeln(FALSE);
end.