PROGRAM temperature_conversion;

VAR count,centigrade,farenheight : INTEGER;

BEGIN
  WRITELN('Centigrade to farenheight temperature table');
  WRITELN;
  FOR count := -2 TO 12 DO
  BEGIN
    centigrade := 10*count;
    farenheight := 32 + centigrade*9 DIV 5;
    WRITE('  C =',centigrade:5);
    WRITE('    F =',farenheight:5);
    IF centigrade = 0 THEN
      WRITE('  Freezing point of water');
    IF centigrade = 100 THEN
      WRITE('  Boiling point of water');
    WRITELN;
  END;
END.