LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY Kolokwium IS
	PORT(
	clk: IN STD_LOGIC;
	input: IN STD_LOGIC;
	reset: IN STD_LOGIC;
	output: OUT STD_LOGIC_VECTOR(1 downto 0));
END Kolokwium;

ARCHITECTURE K OF Kolokwium IS
	TYPE STATE_TYPE IS (A,B,C);
	SIGNAL state: STATE_TYPE;
BEGIN
PROCESS(clk, reset)
BEGIN
IF reset='1' THEN
	state<=A;
ELSIF(clk'EVENT AND clk='1') THEN
	CASE state IS
		WHEN A=>
			IF input='1' THEN state <=B;
			ELSE state<=A;
			END IF;
		WHEN B=>
			IF input='1' THEN state <=A;
			ELSE state<=B;
			END IF;
		WHEN C=>
			IF input='1' THEN state <=C;
			ELSE state<=A;
			END IF;
	END CASE;
END IF;
END PROCESS;

PROCESS(state)
	BEGIN
	CASE state IS
	WHEN A=>output<="10";
	WHEN B=>output<="10";
	WHEN C=>output<="01";
	END CASE;
END PROCESS;
END K;