with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
procedure Test is
subtype Input_number is Integer range 0..10;
Input : Input_number;
type Colors is (Red, Green, Blue, Magenta, Cyan, Yellow);
subtype Primary_colors is Colors range Red..Blue;
Selected_color : Colors;
Subcolor : Primary_colors;
begin
Get(Input);
Selected_color:= Cyan;
if Selected_color in Subcolor then
Put ("Primary Color ");
New_Line;
else
Put ("Secondary Color");
New_Line;
end if;
Put(Input);
New_Line;
end;
d2l0aCBBZGEuSW50ZWdlcl9UZXh0X0lvLCBBZGEuVGV4dF9JbzsKdXNlIEFkYS5JbnRlZ2VyX1RleHRfSW8sIEFkYS5UZXh0X0lvOwoKcHJvY2VkdXJlIFRlc3QgaXMKICAgc3VidHlwZSBJbnB1dF9udW1iZXIgaXMgSW50ZWdlciByYW5nZSAwLi4xMDsKICAgSW5wdXQgOiBJbnB1dF9udW1iZXI7CiAgIHR5cGUgQ29sb3JzIGlzIChSZWQsIEdyZWVuLCBCbHVlLCBNYWdlbnRhLCBDeWFuLCBZZWxsb3cpOwogICBzdWJ0eXBlIFByaW1hcnlfY29sb3JzIGlzIENvbG9ycyByYW5nZSBSZWQuLkJsdWU7IAogICBTZWxlY3RlZF9jb2xvciA6IENvbG9yczsKICAgU3ViY29sb3IgOiBQcmltYXJ5X2NvbG9yczsKYmVnaW4KICAgR2V0KElucHV0KTsKICAgU2VsZWN0ZWRfY29sb3I6PSBDeWFuOwogICBpZiBTZWxlY3RlZF9jb2xvciBpbiBTdWJjb2xvciB0aGVuCiAgICAgICAgUHV0ICgiUHJpbWFyeSBDb2xvciAiKTsgIAogICAgICAgIE5ld19MaW5lOwogICBlbHNlIAogICAgICAgIFB1dCAoIlNlY29uZGFyeSBDb2xvciIpOyAgCiAgICAgICAgTmV3X0xpbmU7CiAgIGVuZCBpZjsKICAgUHV0KElucHV0KTsKICAgTmV3X0xpbmU7CmVuZDsK