Write a procedure PrintFortune(name), where name is
a string. The procedure should
write "You are wise" if the name begins with W,
writes "You are intelligent" if name begins with R, and
writes "You are generous" otherwise.
Now write an Execute part that does PrintFortune with
each of the names "Sam", "William" and "Robert".