data:
myText is text
myNumber is number
procedure:
display "Enter some text: "
accept myText
display "Enter a number: "
accept myNumber