Бизнесмен,начав дело,брал кредит размером k рублей под p процентов годичных и

для конкретного ответа необходимы определенные данные

либо ты программку просишь?

Программу

Есть данные для проверки?

Данных для проверки нет,они будут сказаны на уроке

Рассмотрим простейшую схему кредитования (и самую невыгодную для заёмщика), когда за каждый год отдается фиксированный процент p от первоначальной суммы кредита k без учета того, что часть кредита теснее погашена за предыдущие годы.
В этом случае каждогодная сумма процентов по кредиту составит Sk=kp%/100%.
За n лет будет отдано nSk. И еще нужно возвращать саму сумму кредита k.
Итого необходимо возвращать k+nSk.
Доход за это время составит nr и получаем неравенство
nr nSk+k
n(r-Sk) k n k/(r-Sk) с округлением до целых в великую сторону.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var (k,p):=ReadReal2('Сумма кредита и процент годовых:');
  var r:=ReadReal('Предполагаемый годичный доход:');
  var Sk:=k*p/100;
  if rlt;=Sk then Writeln('Рассчитаться за кредит невероятно')
  else Writeln('Количество лет на погашение кредита: ',Floor(k/(r-Sk)))
end.

Пример
Сумма кредита и процент годовых:10 0000 16
Предполагаемый годовой доход: 24000
Количество лет на погашение кредита: 12

var i:integer;
k,r,p,a:real;
begin
 read(k,p,r);
 i:=1;
while kgt;r do
  begin
   a:=(k-r)+(k-r)*p/100;
   if agt;k
    then break;
   k:=(k-r)+(k-r)*p/100;
   i:=i+1
  end;
if agt;k
then writeln('NO')
else writeln(i);
end.