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

Предыдущий
вопрос Следующий
вопрос

program salary_forecast;

var
average_salary, basket_cost: real;
salary_growth, basket_growth: real;
i: integer;

begin
write('Enter the average salary in January: ');
readln(average_salary);

write('Enter the cost of the consumer basket: ');
readln(basket_cost);

write('Enter the monthly growth rate of the salary (%): ');
readln(salary_growth);

write('Enter the monthly growth rate of the consumer basket (%): ');
readln(basket_growth);

for i := 2 to 12 do
begin
average_salary := average_salary (1 + salary_growth / 100);
basket_cost := basket_cost (1 + basket_growth / 100);

writeln('Forecasted difference in month ', i, ': ', average_salary - basket_cost);
if (average_salary - basket_cost) < 0 then
begin
writeln('The forecasted difference becomes negative in month ', i, '. Prediction stopped.');
break;
end;

end;
end.