1) Дан массив размерностью 8x6 из целых чисел. Напишите программу поиска минимального элемента массива среди двузначных чисел. 2) Дан массив размерностью 7x7 из целых чисел. Напишите программу замены всех чётных элементов массива, стоящих на побочной диагонале на значение первого массива

Вес символа в Unicode - 2 байта, или 16 бит, или 2^4 бит.
Информационный объём файла - 15Кбайт, или 15 * 1024 байт, или 15 * 2^10 байт, или 15 * 2^10 * 2^3 бит, или 15 * 2^13 бит.
Одна строка -  64 символа, или 2^6.
Рассчитаем сколько весит одна строка = вес одного символа * кол-во символов = 2^4 * 2^6 = 2^10 бит. 
Найдем кол-во строк = информационный объём файла / вес одной строки = (15 * 2^13) / 2^10 = 15 * 2^(13 - 10) = 15 * 2^3 = 15 * 8 = 120 строк.

В файле 10 страниц, следовательно на одной странице 12 строк.

ответ: 12 строк.

Program prognoz;
var   Z, K, p, q: real;
            M: Integer;
BEGIN
Write('Введите среднюю зарплату в январе Z = '); ReadLn(Z);
Write('Введите среднюю потреб.корзину в январе K = '); ReadLn(K);
Write('Введите предполагаемый ежемесячный рост зарплаты в % p = '); ReadLn(p);   
Write('Введите предполагаемый ежемесячный рост потреб.корзины в % q = '); ReadLn(q);   
M := 2;
Z := Z*(1+p/100);
K := K*(1+q/100);
while (Z >= K) AND (M < 13) do
begin
WriteLn('Прогноз разности зарплаты и потреб.корзины в ', M:2, '-й месяц:', (Z-K):10:2, ' руб.');
Inc(M);
Z := Z*(1+p/100);
К := K*(1+q/100);
end
END.