viết thuật toán sắp xếp 3 số thứ tự k tăng

uses crt;

var a,b,c,tg:Integer;

Begin

clrscr;

write('vao 3 so a,b,c:'); Readln(a,b,c);

if b<a then begin tg:=a; a:=b; b:=tg; end;

if c<b then begin tg:=b; b:=c; c:=tg;end;

if b<a then begin tg:=a; a:=b; b:=tg; end;

write(c:9; b:9; a:9);

Readln

End.

Ctr chưa test, bạn test thử nhaa.

Bước 1 : i <- 1 to 3

Bước 3: nhập a[i]

bươc 4

 j<- 3 downto 2 

i <- 1 to  j-1 

Nếu A[i]<A[i+1] thì

giam := A[i]

A[i]:=A[i+1]

A[i+1]:=giam

Bước 4:

i <- 1 to 3

bước 5

in ra kết quả và kết thúc thuật toán