8 Кбайт = 8*1024 байт = 8192 байт или символов печатного текста
8192/(32*40*2) = 3.2 или 4 листа
Ответ 4 листа. 4-й лист будет заполнен не до конца
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ReadlnString('Вводите').ToIntegers; mas.println;
var a:=readinteger('Введите число a:');
Writeln('Количество чисел которые меньше а=',mas.Where(t->t<a).Count);
end.
П2 -> П1 -> П0 ИП1 ИП2 + + /-/ x<0 25 ИП0 2 / П0 ИП1 2 / П1 ИП2 2 / П2 С/П ИП0 ИП1 ИП2 * * С/П