with(LinearAlgebra);

# define main function
main := proc()

    print("Maple output");
    print("Chapter 4");
    prob03();
end;

prob03  := proc()
local x, y, t, eq1, eq2, eq3;

    print("Problem 3");
    # point in time when horizontal & vertical  distances equal
    eq1 := 5.0 * t = 16.0 * t * t;  
    eq2 := t > 0; # time greater than zero 
    eq3 := x = ceil(5.0 * 12.0 / 8.0 * t); # would hit next step - so take ceil

    solve([eq1,eq2,eq3] , [t, x]);


end;

# call main
main();