Problem
1. Write a procedure that is given three whole numbers and returns their sum and a Boolean variable equal to True if all three numbers are positive (or False otherwise).
2. Write a procedure that will get a specified number of Float values from the keyboard and return their average. A call to this procedure might look like
Get_Mean (Of => 5, Mean => X);
where Of specifies the number of values to be read and Mean is the result.