Составить программу, которая вычисляет, через Как узнать сколько лет удвоится вклад в банке, если начальная сумма S, процент годовых R. В "PascalABC"

var
s, r, k:real;
ans:integer;
begin
Read(s,r);
k:= s; ans:= 0;
While (k < 2 * s) do begin
  ans:= ans + 1;
  k:= k + k * (r/100);
end;
Writeln(ans);
end.

````````````````````100 20
4
````````````````````
100 100
1