module FahrToCent;
from InOut import ReadReal,WriteReal,
WriteString,WriteLn;
var Fahr:real;
begin
WriteString("Enter Fahrenheit ");
ReadReal(Fahr);
WriteLn;
WriteString("Celsius is ");
WriteReal((Fahr - 32) * 5 / 9);
end FahrToCent