Viết chương trình nhập vào ba số nguyên a, b, c. In ra ba số đó theo thứ tự tăng dần nhanh lên ạ ><

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$