with io, Ada.Text_IO;
use io, Ada.Text_IO;

package body io is
   procedure ReadTemp(T: out Temperatura) is
   begin
      T:= 0.0;
      Put("Accediendo a base de datos");
      Put(".");
      delay 0.6;
      Put(".");
      delay 0.6;
      Put_Line(".");
      delay 0.6;
      Put_Line("Lectura de datos");
   end;

   procedure WriteCau(C : Caudal; i :Integer) is
   begin
      Put("Accediendo a base de datos para la lectura del caudal numero " & i'Img);
      Put(".");
      delay 0.6;
      Put(".");
      delay 0.6;
      Put_Line(".");
      delay 0.6;
      Put_Line("Escritura de caudal numero " & i'Img);
   end;
end io;