uses crt;

var a, b, c, max : integer;

begin

clrscr;

write('nhap ba so a, b, c : ');readln(a, b, c);

max := a;

if b > max then max := b;

if c > max then max := c;

if a = max then 

if b > c then writeln('thu tu tang dan :', c:3, b:3, max:3)

else writeln('thu tu tang dan :', b:3, c:3, max:3);

if b = max then 

if a > c then writeln('thu tu tang dan :', c:3, a:3, max:3)

else writeln('thu tu tang dan :', a:3, c:3, max:3);

if c = max then 

if b > a then writeln('thu tu tang dan :', a:3, b:3, max:3)

else writeln('thu tu tang dan :', b:3, a:3, max:3);

readln

end.

program;
ues 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$