Sắp xếp theo thứ tự từ nhỏ đến lớn 3 số a, b, c

Uses crt;
Var a,b,c,t:longint;
Begin
Clrscr;
   write(‘Nhap a,b,c: ‘);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;
   writeln(a,’ ‘,b,’ ‘,c);
Readln;
End.