Contoh Program Konversi Suhu menggunakan pascal

hay freand's....
kali saya akan berbagi bagaimana menggunakan Program Pascal dengan bentuk sederhana, dan di bawah ini contoh kecilnya,
lihat lissensi berikut ini :

program konvesi_suhu;
uses wincrt;
var
celcius : byte;
reamur,fahrenheit : real;

begin
clrscr;
write('input derajat celcius = '); readln (celcius);
fahrenheit := (9/5) * celcius + 32;
reamur := (4/5) * celcius;
writeln('derajat fahrenheit = ',fahrenheit:6:2);
writeln('derajat reamur = ',reamur:6:2);
readln
end.
==================================
by Muhammad Rasyid H. Atas