Konversi Suhu Celcius ke Fahrenheit & Reamur

--> Konversi Suhu Celcius ke Fahrenheit

Uses crt;
var f,c : real;
BEGIN
Writeln ('Program Konversi Celcius Ke Fahrenheit');
Writeln('------------------------------------------------');
Writeln; Write('Masukan Suhu dalam Celcius: ');
readln(c);
f:=(9/5)*c+32;
Writeln;
Writeln('Jadi Suhu Dalam Fahrenheit Adalah: ',f:4:2);
readln;
END.

-->Konversi Suhu Celcius ke Reamur

Uses crt;
var c,r : real;
BEGIN
Writeln('Program Konversi Celcius ke Reamur');
Writeln('-----------------------------------------------');
Writeln; Write('Masukan Suhu dalam Celcius: ');
readln(c);
r:=(4/5)*c;
Writeln;
Writeln('Jadi Suhu Dalam Reamur Adalah: ',r:4:2);
Readln;
END.