"Enter a string: " write
readln
"Enter a number: " write
readln string>number