Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit - Desafio de Programação Resolvido em Delphi

Informe a temperatura em Celsius: 40
40.0 graus Celcius é igual à 104.0 graus Fahrenheit. 

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Doe R$ 5,00 e ajude-nos a manter o site no ar :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

// Algoritmo Delphi para converter graus Celsius em graus
// Fahrenheit

program estudos_delphi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  celsius, fahrenheit: double;

begin
  try
    // vamos pedir para o usuário informar a temperatura em
    // Celsius
    Write('Informe a temperatura em Celsius: ');
    // efetua a leitura da entrada do usuário
    ReadLn(celsius);

    // vamos converter os graus Celsius para graus
    // Fahrenheit
    fahrenheit := ((celsius * 9) / 5.0) + 32;

    // e agora mostramos o resultado
    WriteLn(FloatToStr(celsius) + ' graus Celcius é igual à '
      + FloatToStr(fahrenheit) + ' graus Fahrenheit.');

    WriteLn;
    Write('Pressione Enter para sair...');
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.