/programs/develop/oberon07/Samples/Windows/Console/HelloRus.ob07 |
---|
0,0 → 1,26 |
MODULE HelloRus; |
IMPORT Console, In, Out; |
PROCEDURE main; |
VAR |
str: ARRAY 10 OF WCHAR; |
BEGIN |
str := "Привет!"; |
Out.StringW(str); Out.Ln; |
str[2] := "е"; |
str[5] := "д"; |
Out.StringW(str) |
END main; |
BEGIN |
Console.open; |
main; |
In.Ln; |
Console.exit(TRUE) |
END HelloRus. |