Program Konversi Suhu dengan Pascal

Berikut adalah program konversi suhu dengan program pascal :

Program konversisuhu;
uses crt;
var cel,fr,re:real;
begin
    clrscr;
    writeln('Program Konversi Suhu');
    writeln('-----------------------------------');
    writeln;
    write('    Suhu dalam Celsius   : ');
    readln(cel);
    writeln;
    writeln('Hasil Konversi');
    writeln('------------------------------------');
    fr:=((9/5)*cel)+32;
    re:=(4/5)*cel;
    writeln('    Suhu dalam Farenheit : ',fr:3:0,' øF');
    writeln('    Suhu dalam Reamur    : ',re:3:0,' øR');
    readln;
end.