При считывании текстового файла с диска пользователь должен указать ?

Путь к файлу (например  c: \file.txt)

Вэтой программе множество ошибок. 1. в заголовке процедуры procedure summ(plus: string; minus: string); параметры plus и minus описаны, как строки. в теле процедуры обоим параметрам  присваивается значение, равное соединению строк a и b, а вовсе не сумма чисел и их разность, как требует условие.2. поскольку параметры не имеют описателя var, после выхода из процедуры их исходное значение не изменяется.3. операторы readn(b) дважды выполняют присваивание переменной b, а переменная a значения не получает.4. вызов процедуры summ неверен, поскольку вместо пары строковых фактических параметров используется вызов процедуры writen, что синтаксически неверно.

Попробуйте так:

1) 25 + 22 - 33 = 14 (учеников) - читали книги Пушкина и Лермонтова,

2) 25 + 22 - 31 = 16 (учеников) - читали книги Пушкина и Гоголя,

3) 22 + 22 - 32 = 12 (учеников) - читали книги Гоголя и Лермонтова,

4) 25 + 22 + 22 - 14 - 16 - 12+10 = 37 (учеников) - читали книги хотя бы одного из этих писателей ,

5) 40 - 37 = 3 (ученика) - не знакомы с произведениями этих писателей,

6) 25 - 16 - 14 + 10 = 5 (учеников) - читали книги только Пушкина,

7) 22 - 16 - 12 + 10 = 4 (ученика) - читали книги только Гоголя,

8) 22 - 14 - 12 + 10 = 6 (учеников) - читали книги только Лермонтова,

9) 5 + 4 + 6 = 15 (учеников) - прочли книги только одного из этих авторов.

ответ. 3 ученика не знакомы с произведениями этих писателей; 15 учеников прочли книги только одного автора.