ADA - Password

with Ada.Text_IO;

with Ada.Strings;

procedure Password_Form is

   -- Constante para almacenar la contraseña requerida

   Contraseña_Requerida : constant String := "contraseña123";

   -- Variables para almacenar la entrada del usuario

   Contraseña_Introducida : String (1 .. Contraseña_Requerida'Length');

   Intentos : Natural := 3;

begin

   -- Bucle principal para solicitar la contraseña y verificarla

   loop

      Ada.Text_IO.Put_Line("Ingrese la contraseña:");

      Ada.Text_IO.Get_Line(Contraseña_Introducida);

      -- Verifica si la contraseña introducida es correcta

      if Ada.Strings.Fixed.Trim(Contraseña_Introducida) = Contraseña_Requerida then

         Ada.Text_IO.Put_Line("Contraseña correcta. ¡Acceso concedido!")

         exit;  -- Sale del bucle si la contraseña es correcta

      else

         Ada.Text_IO.Put_Line("Contraseña incorrecta.");

         Intentos := Intentos - 1;

         -- Verifica si se han agotado los intentos

         if Intentos = 0 then

            Ada.Text_IO.Put_Line("Has excedido el número máximo de intentos. Acceso denegado.");

            exit;  -- Sale del bucle si se han agotado los intentos

         else

            Ada.Text_IO.Put_Line("Te quedan " & Intentos'Image' & " intentos.");

         end if;

      end if;

   end loop;

end Password_Form;