RosettaCodeData/Task/User-input-Text/Oberon/user-input-text.oberon

MODULE InputText;
IMPORT
  In,
  Out;
VAR
  i: INTEGER;
  str: ARRAY 512 OF CHAR;
BEGIN
  Out.String("Enter a integer: ");Out.Flush();In.Int(i);
  Out.String("Enter a string: ");Out.Flush();In.String(str);
END InputText.