forked from KolibriOS/kolibrios
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. |