with Ada.Text_IO;
use Ada.Text_IO;
procedure ejercicio_8 is
   cadena:String:="ABCDEF";
   aux:Character;
begin
   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;