program;
uses crt;
var a, b, c: real;
begin clrscr;
    write('Nhap a = '); readln(a);
    write('Nhap b = '); readln(b);
    write('Nhap c = '); readln(c);
if a>=b then 
begin
      if b>=c then {a ≥ b ≥ c}
      writeln('a:20:4, b:20:4, c:20:4');
      else if c>=a then {c ≥ a ≥ b}
      writeln('c:20:4, a:20:4, b:20:4');
      else { a ≥ c ≥ b}
      writeln('a:20:4, c:20:4, b:20:4');
end;
       else {'b > a, coi như điều kiện b ≥ a đúng'}
begin
      if a>=c then { b ≥ a ≥ c}
      writeln('b:20:4, a:20:4, c:20:4')
      else if c>=b then {c ≥ b ≥ a}
      writeln(c:20:4, b:20:4, a:20:4)
      else {'b ≥ c ≥ a'}
      writeln('b:20:4, c:20:4, a:20:4');
end;
readln
end.

$@FANCONANIME$

var a, b, c: real;
begin
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap c = '); readln(c);
if a>=b then
begin
if b>=c then {a ≥ b ≥ c}
writeln(a:20:4, b:20:4, c:20:4)
else if c>=a then {c ≥ a ≥ b}
writeln(c:20:4, a:20:4, b:20:4)
else { a ≥ c ≥ b}
writeln(a:20:4, c:20:4, b:20:4);
end
else { b > a, coi như điều kiện b ≥ a đúng }
begin
if a>=c then { b ≥ a ≥ c}
writeln(b:20:4, a:20:4, c:20:4)
else if c>=b then {c ≥ b ≥ a}
writeln(c:20:4, b:20:4, a:20:4)
else {b ≥ c ≥ a}
writeln(b:20:4, c:20:4, a:20:4);
end;
readln;
end.

#CHÚC BẠN HỌC TỐT