НА ВРЕМЯУ МЕНЯ 20 МИНУТ ОСТАЛОСЬ

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.

Вес символа в 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 строк.