{* Задача 295 *}

Unit ZADACH295;
Interface
Implementation
Begin
 writeln('Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр.');
End.

Program zadach295;

Uses zadach295.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Предопределенные *}
  ts = ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
Var {* В работе нам потребуются переменные: *}
  s   : char;
  txt : text;
  i   : integer;
  j   : integer;
Begin
  clrscr; {* Очищаем экран *}
  assign(txt, 'c:txt.txt'); {* Связывание txt с файлом 'c:txt.txt' *}
  reset(txt); {* Подготовка переменной txt для чтения из файла *}
  i := 0;
  j := 0;
  While Not(EOF(txt)) Do
  Begin
    read(txt, s);
    If ord(s) In [128..175] Then
      i := i + 1;
    If ord(s) In [224..239] Then
      i := i + 1;
    If s In ts Then
      j := j + 1
  End;
  close (txt); {* Файл txt будет закрыт *}
  If i > j Then
    writeln('Русских букв в тексте больше, чем цифр')
  Else writeln('Цифр в тексте больше, чем русских букв');
    readln
End.