procedure Controller is
   ST1: TemperList;
   ST2: TemperList;
   ST3: TemperList;
   ST4: TemperList;
   SR1: TemperList;
   SC1: TemperList;
   SC2: TemperList;
   SD1: TemperList;
   Estado : Boolean;
   Contador : Integer;
begin
   Contador := 0;
   loop
      LeerTemperaturas(ST1 => ST1,
                       ST2 => ST2,
                       ST3 => ST3,
                       ST4 => ST4);
      LeerRadiacion(RAD => SR1);
      if(Contador mod 2 = 0) then
      CalculoSC1(SR1 => SR1,
                 ST4 => ST4,
                 ST2 => ST2,
                 SC1 => SC1);
      end if;
      LeerCaudal(CA => SD1);
      if(Contador mod 4 = 0) then
      CalculoSC2(ST2 => ST2,
                 ST3 => ST3,
                 SD1 => SD1,
                 SC2 => SC2);
      end if;
      ControlDeSeguridad(SC1 => SC1,
                         SC2 => SC2,
                         Estado => Estado);
      EscribirSC1(SC1 => SC1);
      EscribirSC2(SC2 => SC2);
      Contador := Contador+1;
      if(Contador = 4) then
            Contador := 0;
      end if;
      end loop;
end Controller;