Temperatur Celcius ke Fahrenheit

Contoh pemrograman konversi temperatur dari celcius ke fahrenheit dengan menggunakan bahasa pascal berikut:

program tampilan;
uses wincrt;

var
cel, fah :real;

begin
clrscr;
gotoxy(20,10);
writeln('program konversi satuan temperatur');
gotoxy(18,11);
writeln('----------------------------------------');
gotoxy(21,12);
write ('masukan temperatur celcius : ');
readln (cel);
fah:=1.8*cel+32;
gotoxy(21,13);
write('temperatur dalam farenhiet : ',fah:5:1);
gotoxy(18,14);
writeln('----------------------------------------');
end.