with Ada.Text_IO;
use Ada.Text_IO;
procedure ejercicio_8 is
   cadena:String(1..5);
   aux:Character;
begin
   Put_Line("Introduzca una cadena de texto");
   Get(cadena);
   Put_Line(cadena);
   for I in cadena'Range loop
      aux:=cadena(I);
      case aux is
         when 'A' => Put_Line("Opción 1");
         when 'B' => Put_Line("Opción 2");
         when 'C'|'F' => Put_Line("Opción 3");
         when others => Put_Line("Otra opción");
      end case;
   end loop;

end ejercicio_8;