Нужно написать программу на pascal abc net
Текстовый файл содержит строки различной длины. Общий объём файла не
превышает 1 Мбайт. Строки содержат только заглавные буквы латинского
алфавита (ABC…Z). Определите количество строк, в которых буква E
встречается чаще, чем буква A.

Для того, чтобы эта программа заработала надо добавить перед описанием процедуры F следующую строчку:
procedure G(n: integer);forward;
Так как в процедуре F есть вызов процедуры G описанной дальше по тексту программы.
После исправления кода и запуска программы с F(12) получим 17 звездочек. По шагам это будет выглядеть так:

 Вызов процедуры F и выполнение
* n = 12
* n = 12
Вызов процедуры G и выполнение
* n = 11
* n = 11
Вызов процедуры F и выполнение
* n = 9
* n = 9
Вызов процедуры G и выполнение
* n = 8
* n = 8
Вызов процедуры Fи выполнение
* n = 6
* n = 6
Вызов процедуры G и выполнение
* n = 5
* n = 5
Вызов процедуры F и выполнение
* n = 3
* n = 3
Вызов процедуры G и выполнение
* n = 2
* n = 2
Вызов процедуры F и выполнение
* n = 0

46/2=23 остаток 0

23/2 = 11 остаток 1

11/2 = 5 остаток 1

5/2 = 2 остаток 1

2/2 = 1 остаток 0

Запишем остатки снизу вверх учитывая единицу, которую мы получили при делении 2 на 2: 101110

Для перевода числа из десятичной СС в двоичную нужно:

1. Выполнить деление этого числа и если его результат будет равен или больше 2, то выполнить деление этого результата. Обязательно запиши остаток от каждого деления.

2. Запиши все остатки начиная снизу, начни с результата последнего деления. остальные результаты писать в ответ не нужно.