Вклад в банке составляет x рублей. ежегодно он увеличивается на p процентов, после чего дробная часть копеек отбрасывается. каждый год сумма вклада становится больше. определите, через сколько лет вклад составит не менее y рублей. программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число. только на паскале

Var sum, required_sum, percent : real;
years : integer;
Begin
  read(sum, percent, required_sum);
  if percent > 1 then percent := percent / 100;

  repeat
    sum := trunc(100 * sum * (1 + percent)) / 100;
    years := years + 1;
    writeln(years, ' sum = ', sum);
  until sum >= required_sum;

  writeln(years);
End.