Conditional structures/Ada