Program Pengurutan angka dalam Pascal

Assalamu'alaikum..
kali ini saya mau berbagi sebuah bahasa pemrograman pascal untuk mengurutka angka dari yang terkecil - terbesar, langsung aja..

program switch;

uses wincrt;
var
n1,n2,n3:integer;

begin
write('nilai pertama : ');readln(n1);
write('nilai kedua : ');readln(n2);
write('nilai ketiga : ');readln(n3);
writeln;

if (n1<n2) and (n1<n3) then
if n2<n3 then
writeln(n1,' ',n2,' ',n3)
else writeln(n1,' ',n3,' ',n2)
else
if (n2<n1) and (n2<n3) then
if n1<n3 then
writeln(n2,' ',n1,' ',n3)
else writeln(n2,' ',n3,' ',n1)
else
if (n3<n1) and (n3<n2) then
if n1<n2 then
writeln(n3,' ',n1,' ',n2)
else writeln(n3,' ',n2,' ',n1)

end.

*jika kalian pake TP 7.0 pada "uses wincrt;"  ganti menjadi " uses crt;" 

sekian, semoga bermanfaat. wassalamu'alaikum !