with data_types, IO, control_procedures, Ada.Text_IO;
use data_types, IO, control_procedures, Ada.Text_IO;

procedure sistema_control is
   ST2: Temperatura;
   SC1, SC2: Caudal;

begin
   ST2:= 0.0;
   SC1:= 0.0;
   SC2:= 0.0;

   for i in 1..5 loop
      Put_Line("Iteración: " & i'Img);
      ReadTemp(ST2);
      delay 0.6;
      Control_Seguridad(ST2, SC1, SC2);
      delay 0.6;
      writeCau(SC1,1);
      delay 0.6;
      writeCau(SC2,2);
      delay 0.6;
      Put_Line("");
   end loop;

end sistema_control;