Program Pascal Konversi Suhu

Program suhu_celcius_ke_fahrenheit;
uses crt;
var
f,c : real;
begin
writeln ('Program konversi celcius ke fahrenheit');
writeln ('______________________________________');
writeln;
write ('Masukan Suhu dala Celcius: '); readln (c);
f:=(9/5)*c+32;
writeln;
writeln('Jadi Suhu dalam Fahrenheit adalah: ',f:4:2);
readln;
end.