Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  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.