2f54c7de00
git-svn-id: svn://kolibrios.org@8097 a494cfbc-eb01-0410-851d-a64ba20cac60
26 lines
317 B
Plaintext
26 lines
317 B
Plaintext
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. |