mirror of
https://github.com/AntKrotov/oberon-07-compiler.git
synced 2026-10-05 09:45:47 +00:00
26 lines
316 B
Plaintext
26 lines
316 B
Plaintext
MODULE HelloRus;
|
|
|
|
IMPORT Console, In, Out;
|
|
|
|
|
|
PROCEDURE main;
|
|
VAR
|
|
str: ARRAY 10 OF WCHAR;
|
|
|
|
BEGIN
|
|
str := "Привет!";
|
|
Out.StringW(str); Out.Ln;
|
|
str[0] := "п";
|
|
str[6] := "?";
|
|
Out.StringW(str)
|
|
END main;
|
|
|
|
|
|
BEGIN
|
|
Console.open;
|
|
|
|
main;
|
|
In.Ln;
|
|
|
|
Console.exit(TRUE)
|
|
END HelloRus. |