Exmaples update

Programs/ATest.Mod

@@ -2,26 +2,11 @@ MODULE ATest;
 IMPORT In, Out;
 VAR i, j, n: INTEGER;
 BEGIN
-  Out.String('Пр.;'); Out.Ln;
-  In.Int(n); n := 4;
-  FOR i := 1 TO n DO
+  Out.String('Введите число: ');
+  In.Int(n);
+  FOR i := 1 TO n MOD 20 + 5 DO
     FOR j := 1 TO 1 + i MOD 40 DO Out.Int(i, 5) END;
     Out.Ln
   END;
-  Out.Char('.'); Out.Ln;
-END ATest.
-
-asda
-sd
-as
-a
-sd
-as
-das
-d
-as
-as
-a
-sd
-as
-dest.
+  Out.String('конец.'); Out.Ln
+END ATest.

Programs/ExperimentalRus.Mod

@@ -0,0 +1,28 @@
+МОДУЛЬ ЧтениеЧисел;
+ИМПОРТ Тексты, Ввод, Вывод;
+ПЕРЕМЕННЫЕ
+  имя: МАССИВ 100 ИЗ ЛИТЕРА;
+  а, б, в: ЦЕЛОЕ;
+  Т: Тексты.Текст;
+  С: Тексты.Сканер;
+НАЧАЛО
+  Вывод.Строка("Введите имя файла: ");
+  Ввод.Ряд(имя);
+
+  НОВЫЙ(Т);
+  Тексты.Открыть(Т, имя);
+  ЕСЛИ Т.длина = 0 ТОГДА
+    Вывод.Строка("Файл пуст."); Вывод.Перенос
+  ИНАЧЕ
+    Тексты.ОткрытьСканер(С, Т, 0);
+    Тексты.Сканировать(С);
+    ЕСЛИ С.класс = Тексты.Целое ТОГДА
+      а := С.и;
+      Вывод.Строка("Прочитано целое число: ");
+      Вывод.Целое(а); Вывод.Перенос
+    АЕСЛИ С.класс = Тексты.Имя ТОГДА
+      Вывод.Строка("Прочитано слово: ");
+      Вывод.Строка(С.с); Вывод.Перенос
+    КОНЕЦ
+  КОНЕЦ
+КОНЕЦ ЧтениеЧисел.