В банк было положено x рублей. Ежегодные проценты на вклад составляют Y %. Определите, через сколько лет вклад будет не менее S рублей. Составить программу с использованием оператора While.

                                       PascalABC.NET

begin

 var (x, Y, S) := ReadReal3('Введите x(вклад), Y(проценты), S(конечная сумма):');

 assert(x < S);

 var i := 0;

 while x < S do begin

   x += x * (Y / 100);

   i+=1;

   print(x)

 end;

 print(newline + i,'Лет')

end.