RosettaCodeData/Task/User-input-Text/Oberon-2/user-input-text.oberon-2
2015-11-18 06:14:39 +00:00

11 lines
221 B
Text

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.