with Ada.Text_IO;
use Ada.Text_IO;
procedure ejercicio_6 is
   --type Tipo_Hora is array(Positive range <>) of Character;
   --type Tipo_Unidad is array(Positive range <>) of Character;
   -- Definimos la estructura Registro
   type Tipo_Registro is
      record
         -- Valores por defecto
         Hora:String(1..8);
         Valor:Integer;
         Unidad:String(1..20);
      end record;
   Registro:Tipo_Registro;
begin
   -- Inicializamos la variable Registro
   Registro.Hora:="13:00 pm";
   Registro.Valor:=25;
   Registro.Unidad:="[Grados centígrados]";
   -- Imprimimos por pantalla los atributos de Registro
   Put_Line("Hora: "& Registro.Hora);
   Put_Line("Valor: "& Registro.Valor'Img);
   Put_Line("Unidad: "& Registro.Unidad);

end ejercicio_6;