Средняя заработная плата в январе составила z руб., а стоимость потребительской корзины—к руб. предполагается, что ежемесячный рост заработной платы составит р%, а потребительской корзины q%. последовательно выводить прогнозируемую разность между средней заработной платой и стоимостью потребительской корзины в феврале—декабре. вычисления прекратить, если разность станет отрицательной. на паскале

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.