Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 8097 | maxcodehac | 1 | MODULE HelloRus; |
| 2 | |||
| 3 | IMPORT Console, In, Out; |
||
| 4 | |||
| 5 | |||
| 6 | PROCEDURE main; |
||
| 7 | VAR |
||
| 8 | str: ARRAY 10 OF WCHAR; |
||
| 9 | |||
| 10 | BEGIN |
||
| 11 | str := "Привет!"; |
||
| 12 | Out.StringW(str); Out.Ln; |
||
| 13 | str[2] := "е"; |
||
| 14 | str[5] := "д"; |
||
| 15 | Out.StringW(str) |
||
| 16 | END main; |
||
| 17 | |||
| 18 | |||
| 19 | BEGIN |
||
| 20 | Console.open; |
||
| 21 | |||
| 22 | main; |
||
| 23 | In.Ln; |
||
| 24 | |||
| 25 | Console.exit(TRUE) |
||
| 26 | END HelloRus. |