data:
myText is text
myNumber is number

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