type Input_Type is range 0 .. 10; type Result_Type is range 0 .. 100;