with Text_IO;
use Text_IO;
procedure temperature is
   package Int_IO is new Text_IO.Integer_IO(INTEGER);
   use Int_IO;
   X, Y : INTEGER;
begin
   Put("Centigrade to Farenheight temperature table");
   New_Line(2);
   for Count in INTEGER range -2..12 loop
      X := 10 * Count;
      Y := (32 + X * 9) / 5;
      Put("C =");
      Put(X,5);
      Put("    F =");
      Put(Y,5);
      if X = 0 then
         Put("  Freezing point of water");
      end if;
      if X = 100 then
         Put("  Boiling point of water");
      end if;
      New_Line;
   end loop;
end;