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.