GG

procedure volumeMenu
    var userChoice : int
    var answer : real
    cls
    put "VOLUME CALCULATIONS"
    put ""
    put "  1.  Volume of a rectangle"
    put "  2.  Volume of a circle"
    put "  3.  Volume of a triangle"
    put "  4.  Volume of a parallelogram"
    put ""
    put "Enter your choice: " ..
    get userChoice

    if userChoice = 1 then
        answer := volumeRect ()
        put "The volume of the rectangle is ", answer
    elsif userChoice = 2 then
        answer := volumeCircle ()
        put "The volume of the circle is ", answer
    elsif userChoice = 3 then

    elsif userChoice = 4 then

    else

    end if
end volumeMenu