Creo que los dos estan equivocados
Código Delphi
[-]
function CelciusToFarenheit(Temperatura: real): real;
begin
result := (9/5) * Temperatura + 32;
end;
function FarenheitToCelcius(Temperatura: real): real;
begin
result := (5/9) * (Temperatura - 32);
end;