{* Задача 44 *}

Unit ZADACH44;
Interface
Implementation
Begin
 writeln('Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в свое дело. По прогнозам, его дело должно давать прибыль r рублей в год. Сможет ли он накопить сумму, достаточную для погашения кредита, и если да, то через сколько лет? Написать программу для решения данной задачи.');
End.

Program zadach44;

Uses zadach44.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  k : integer;
  p : integer;
  r : integer;
  i : integer;
  f : boolean;
Begin
  readln(k, p, r);
  If p > = r Then
    writeln('Нет не сможет')
  Else Begin
    f := false;
  i := 1;
  While f Do
  Begin
    If (i * r) > = (i * p + k) Then
      f := false;
    i := i + 1;
  End;
  
End;
  i := i - 1;
  writeln(i, ' лет');
  End....