Mengurutkan Bilangan Pada Pascal

Gak ada kerjaan di malam ini, kembali lagi saya nyoret-nyoret dinding blogger saya. Emang sich gak pala maharir dan gak pala lama berkutat di dunia pemograman. Tapi sesuai dengan motto blog saya Tidak ragu untuk Berbagi ilmu heheheh :D :P
Langsung aja ya gan ke Tkp dari pada panjang lebar ngoceh :D

Screen Shot Hasil nya gan :

Ini gan Syntax nya :

Uses crt; 

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<=B) and (A<=C) then 

if (B<=C) then 

Writeln(A,' ',B,' ',C) 

else 

Writeln(A,' ',C,' ',B) 

else if (B<=A) and (B<=C) then 

if (A<=C) then 

Writeln(B,' ',A,' ',C) 

else 

Writeln(B,' ',C,' ',A) 

else if (C<=A) and (C<=B) then 

if (A<=B) then 

Writeln(C,' ',A,' ',B) 

else 

Writeln(C,' ',B,' ',A) 

End.

Mari coba gan kagak susah kok bahasa pemograman, asal kan ada niat dan kemauan mencoba gan 

Semoga bermanfaat gan ^_^