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.
|