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.

$@FANCONANANIME$
bạn có thể tham khảo ở yanquinnkhongcoten nhé

bạn yanquinn giỏi tin hơn mik

uses crt;

var a, b, c : integer;

begin

clrscr;

write('Nhap ba 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 tang dan : ', a,'  ', b,'  ', c);

readln

end.