Program pascal pengurutan nilai terkecil ke terbesar

program pengurut_angka;
uses wincrt;
var
a,b,c : integer;
begin
writeln('                 ======= PROGRAM PENGURUT NILAI =======');
writeln('                 =======     created by : Misbach Surury      =======');
writeln;
write('masukan angka Pertama = ');readln(a);
write('masukan angka Kedua = ');readln(b);
write('masukan angka Ketiga = ');readln(c);
writeln;

begin
if (c>b) and (b>a) then write('    >< Urutan Bilangan= ',a,' ' ,b,' ',c)
else
if (a>b) and (c>a) then write('    >< Urutan Bilangan= ',b,' ' ,a,' ',c)
else
if (b>a) and (a>c) then write('    >< Urutan Bilangan= ',c,' ' ,a,' ',b)
else
if (c>a) and (b>c) then write('    >< Urutan Bilangan= ',a,' ' ,c,' ',b)
else
if (a>c) and (c>b) then write('    >< Urutan Bilangan= ',b,' ' ,c,' ',a)
else
if (b>c) and (a>b) then write('    >< Urutan Bilangan= ',c,' ' ,b,' ',a)
end;

end.