Kodingan Pascal Konversi Suhu

Program Konversi_Suhu;
var f,c:real;
begin
   writeln;
   Writeln('Program Konversi Fareinheit Ke Celcius');
   Writeln('======================================');
   Writeln;
   Write('Masukan Suhu dalam Farenheit: ');readln(f);
   c:=5/9*(f-32);
   Writeln;
   Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);
   readln;
end.