Нужно решить задачу в паскале В банк было положено X рублей, процент по вкладу составил Y (%) в год. через сколько лет на вкладе будет S рублей?

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

program BankDeposit;
var
X, Y, S: real;
years: integer;
begin
write('Введите сумму вклада X: ');
readln(X);

write('Введите процент по вкладу Y: ');
readln(Y);

write('Введите желаемую сумму на вкладе S: ');
readln(S);

years := 0;

while X < S do
begin
X := X + X * Y / 100;
years := years + 1;
end;

writeln('Через ', years, ' лет на вкладе будет ', S:0:2, ' рублей');
end.