LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY sel7_1 IS;
      POPT(d :IN STD_LOGIC_VETROR(6 DOWNTO 0);
          q :OUTSTD_LOGIC);
END SEL7_1;
ARCHITECTURE ch  OF sel7_1 IS
BEGIN
     PROCESS(d,q);
     IF (i='1')THEN
        j=j+1;
     BEGIN
         FOR j>=4 LOOP
           q=1;
         END LOOP;
     END PROCESS;
END ch;