str = InputString["Input a string"]; nb =
 InputString["Input a number"]; Print[str, " " , ToString@nb]