Program konversi suhu (celcius ke reamur dan celcius ke fahrenheit)

Nih, ada program konversi suhu di atas dengan menggunakan program pascal.Pasti banyak yang udah pada tahu caranya.Nah, bagi yang belum tahu ni gue beritahukan caranya .
It is simple guys...

Program Mengkonvensi_Suhu;

uses crt;

var C,F,R : real ;

begin

Clrscr;

       writeln (' Program konversi suhu C-R dan C-F');

       writeln ;

       write (' Masukkan besar derajat celcius   :') ;

       readln (C);

       R:= (4/5)*C;

       F:= (180/100)*C+32;

       writeln ;

       writeln ('Jadi suhu dalam reamur adalah :',r:2:2);

       write ('Jadi suhu dalam fahrenheit adalah :',F:2:2);

readln;

end.