Найти величину вклада, если заданы первоначальная сумма, процент по вкладу и количество лет действия вклада - Turbo Pascal

Формулировка задачи:

Составить программу для решения приведенной ниже задачи отладить ее и проверить работу при различных исходных данных. Задача) Подсчитать величину вклада в банке, если заданы первоначальная сумма, процент по вкладу и количество лет, в течение которых вклад хранится в банке. Определить, через сколько лет вклад удвоится. Предмет не мой не шарю в нем, но очень нужно сделать помогите пожалуйста.

=))

Решение задачи: «Найти величину вклада, если заданы первоначальная сумма, процент по вкладу и количество лет действия вклада»

Листинг программы

uses crt;
var sn,s,p:real;
    n,k:integer;
begin
clrscr;
write('Введите начальную сумму sn=');
readln(sn);
write('Введите процент по вкладу p=');
readln(p);
write('Введите срок вклада, лет n=');
readln(n);
s:=sn;
for k:=1 to n do
s:=s*(1+p/100);{вклад накопительный, п
                роцет насчитывается на сумму в конце k-го глда}
writeln('Величина вклада но конец срока составит ',s:0:2);
k:=0;
s:=sn;
while s<2*sn do
 begin
  s:=s*(1+p/100);
  k:=k+1;
 end;
writeln('Вклад удвоится через ',k,' лет и составит ',s:0:2);
readln
end.

Объяснение кода листинга программы

Создается переменная sn типа real, которая будет хранить начальную сумму вклада.
Создается переменная p типа real, которая будет хранить процент по вкладу.
Создается переменная n типа integer, которая будет хранить количество лет действия вклада.
Выводится сообщение с просьбой ввести начальную сумму вклада.
Выводится сообщение с просьбой ввести процент по вкладу.
Выводится сообщение с просьбой ввести срок вклада.
Переменная s инициализируется значением переменной sn.
Запускается цикл for, который будет выполняться n раз.
Внутри цикла переменная s умножается на (1+p/100) (процент по вкладу начисляется на сумму в конце k-го года).
Переменная k увеличивается на единицу.
После завершения цикла выводится сообщение с величиной вклада к концу срока.
Переменная s инициализируется начальной суммой вклада.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной s меньше удвоенной начальной суммы вклада.
Внутри цикла переменная s умножается на (1+p/100) (процент по вкладу начисляется на сумму в конце k-го года).
Переменная k увеличивается на единицу.
По завершению цикла выводится сообщение о том, что вклад удвоится через определенное количество лет и составит определенную сумму.
Выводится сообщение с просьбой ввести данные для создания вклада.
Программа завершается и выводится сообщение об успешном создании вклада.