process(situ)
begin
if(clk'event and clk='1')then
case situ is
when 0 => distemp<="0111111";
when 1 => distemp<="0000110";
when 2 => distemp<="1011011";
when 3 => distemp<="1001111";
when 4 => distemp<="1100110";
when 5 => distemp<="1101101";
end case;
end process;