Ini Adalah Script Untuk Membuat Aplikasi Sederhana Konversi Suhu :
uses crt;
label Celcius,Reaumur,Fahrenheit,Kelvin,awal,akhir;
var C,F,R,K,jumlah:real;
pilih,ulang:string;
begin clrscr;
awal:
clrscr;
textcolor(red);writeln('---------------------------PROGRAM KONVERSI SUHU--------------------------------');
writeln('');
writeln('');
textcolor(white);writeln('Pilih jenis suhu: ');
writeln('');
textcolor(red);writeln('1.Celcius');
textcolor(blue);writeln('2.Fahrenheit');
textcolor(white);writeln('3.Reaumur');
textcolor(green);writeln('4.Kelvin');
writeln('');
textcolor(white);write('Masukkan...