Program Urut_Bilangan;
Uses Wincrt;
Var A,B,C:integer;
Begin
Writeln('Program Mengurut Bilangan');
Writeln('=========================');
Writeln;
Write('Masukkan Nilai A: ');readln(A);
Write('Masukkan Nilai B: ');readln(B);
Write('Masukkan Nilai C: ');readln(C);
Writeln;
if (A
if (B
Writeln(A,' ',B,' ',C)
else
Writeln(A,' ',C,' ',B)
else if (B
if (A
Writeln(B,' ',A,' ',C)
else
Writeln(B,' ',C,' ',A)
else if (C
if (A
Writeln(C,' ',A,' ',B)
else
Writeln(C,' ',B,' ',A)
End.
