with Ada.Text_IO;  use Ada.Text_IO;
	procedure Ada10 is
	
	type dny is (Po,Ut,St,Ct,Pa,So,Ne);
	den1,den2 : dny;
	p : Integer;
		
	begin

		Put_Line(dny'Image(Ct));
		
		p := dny'Pos(Ct);
		Put_Line(Integer'Image(p));

		den1 := dny'Val(0);
		den2 := dny'Value("Ct");
		Put_Line(den1'Img);
		Put_Line(den2'Img);
			       
	end Ada10;