var a: array[1..3] of longint;
    i，j，tg: longint;
begin
for i:=1 to 3 do read(a[i]);
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to 3 do write('Day so a,b,c duoc sap xep giam dan la',a[i]，’ ‘);
end.

uses crt;

var a, b, c : integer;

begin

clrscr;

write('Nhap 3 so a, b, c : '); readln(a, b, c);

if a < b then begin a := a + b;

b := a - b; a := a - b; end;

if b < c then begin b := b + c;

c := b - c; b := b - c; end;

if a < b then begin a := a + b;

b := a - b; a := a - b; end;

write('Thu tu giam dan : ', a ,' ', b ,' ', c);

readln

end.