{
   FILENAME  : TempConvExample.pas
   AUTHOR    : Christopher A. Gantz 
   EMAIL     : cgantz@regis.edu
   STUDENT ID: 123-45-6789

   ASSIGNMENT: PA #1
   DUE DATE  : Mon. 08/02/04
   COURSE    : CS 241 (Control Structures)
   TERM      : Summer 8wk2 2004

   DESCRIPTION: 
     Program to convert temperatures from
     Fahrenheit to Celsius.

}


program Fahrenheit2Celsius(input, output);

const
	MIN = 32 ;
	MAX = 50 ;
	CONVERT = 5 / 9 ;
var
	fahren: integer ;
	celsius: real ;

begin
	writeln('Fahrenheit     Celsius') ;
	writeln('----------     -------') ;
	for fahren := MIN to MAX do begin
		celsius := CONVERT * (fahren - 32) ;
		writeln(fahren: 5, celsius: 18: 2) ;
 end ;
end.


{ Expected Results of execution

  Fahrenheit     Celsius
  ----------     -------
     32          0.00
     33          0.56
     34          1.11
     35          1.67
     36          2.22
     37          2.78
     38          3.33
     39          3.89
     40          4.44
     41          5.00
     42          5.56
     43          6.11
     44          6.67
     45          7.22
     46          7.78
     47          8.33
     48          8.89
     49          9.44
     50          10.00

}