(*  This program converts Fahrenheit temperatures to Celsius.  It 
prompts the user to enter a Fahrenheit temperature, either real or
integer, on the console.  The program computes and displays the equivalent 
Celsius temperature on the console until the user has no more input. *)

program FahrenheitToCelsius(Input,Output);

var CelsiusTemp,FahrenheitTemp : real;
    QuitChar : char;

begin

    repeat

        writeln; writeln;

        write('Fahrenheit temperature is: ');

        readln(FahrenheitTemp);

        CelsiusTemp := (( FahrenheitTemp - 32.0 ) * ( 5.0 / 9.0 ));

        write('Celsius temperature is:   ');  writeln(CelsiusTemp:5:1);

        writeln;  

        write('Another temperature input?  :');

        read(QuitChar); writeln;

    until not (QuitChar in ['Y','y'])

end. (* FahrenheitToCelsius *)
