INF01202 - Laboratório 1 - Exercício 3 - Problema 1

Código fonte do exercício:

program FtoC;
{ Programa que lˆ a temperatura em graus
  fahrenheit e converte para o equivalente
  em centigrados }

var
  C, F: Real;

begin
  write('Digite a temperatura em graus Farenheit: ');
  readln(F);

  C := (F - 32) * 5 / 9;

  write('Temperatura em Centigrados: ', C:5:1);
end.