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