                                (* Chapter 4 - Program 5 *)
program Temperature_Conversion;

var A1,A2,A3 : integer;

begin
   Writeln('Centigrade to farenheight temperature table');
   Writeln;
   for A1 := -2 to 12 do begin
      A2 := 10*A1;
      A3 := 32 + A2*9 div 5;
      Write('  C =',A2:5);
      Write('    F =',A3:5);
      if A2 = 0 then
         Write('  Freezing point of water');
      if A2 = 100 then
         Write('  Boiling point of water');
      Writeln;
   end;
end.




{ Result of execution

Centigrade to farenheight temperature table

  C =  -20    F =   -4
  C =  -10    F =   14
  C =    0    F =   32  Freezing point of water
  C =   10    F =   50
  C =   20    F =   68
  C =   30    F =   86
  C =   40    F =  104
  C =   50    F =  122
  C =   60    F =  140
  C =   70    F =  158
  C =   80    F =  176
  C =   90    F =  194
  C =  100    F =  212  Boiling point of water
  C =  110    F =  230
  C =  120    F =  248

}
