Решите задачу на Паскале пожалуйста
Подрабатывая вечерами курьером, школьник решил накопить сумму в S рублей для покупки компьютера. В первый месяц он отложил R рублей. Затем его вклад каждый раз был на D% больше предыдущего вклада. Через сколько месяцев школьник сможет купить компьютер?

Ответ:

Объяснение:

var

 s, r:real;

 d, k:integer;

begin

 writeln('Input s = ');

 readln(s);

 writeln('Input r = ');

 readln(r);

 writeln('Input d = ');

 readln(d);

 k:=1;

 while (r<s) do begin

   r:=r + r*d/100;

   if (r<s)then k:=k+1;

 end;

 writeln(k);

 readln;

end.