МОДУЛЬ ЧтениеЧисел;
ИМПОРТ Тексты, Ввод, Вывод;
ПЕРЕМЕННЫЕ
  имя: МАССИВ 100 ИЗ ЛИТЕРА;
  а, б, в: ЦЕЛОЕ;
  Т: Тексты.Текст;
  С: Тексты.Сканер;
НАЧАЛО
  Вывод.Строка("Введите имя файла: ");
  Ввод.Ряд(имя);

  НОВЫЙ(Т);
  Тексты.Открыть(Т, имя);
  ЕСЛИ Т.длина = 0 ТОГДА
    Вывод.Строка("Файл пуст."); Вывод.Перенос
  ИНАЧЕ
    Тексты.ОткрытьСканер(С, Т, 0);
    Тексты.Сканировать(С);
    ЕСЛИ С.класс = Тексты.Целое ТОГДА
      а := С.и;
      Вывод.Строка("Прочитано целое число: ");
      Вывод.Целое(а); Вывод.Перенос
    АЕСЛИ С.класс = Тексты.Имя ТОГДА
      Вывод.Строка("Прочитано слово: ");
      Вывод.Строка(С.с); Вывод.Перенос
    КОНЕЦ
  КОНЕЦ
КОНЕЦ ЧтениеЧисел.