Некто положил в банк S рублей. Через сколько лет сумма вклада более, чем в 2 раза превысит первоначальный вклад, если годовой процент составляет x%.Паскаль

var s,x,sum:real; k:integer;beginwrite('s = ');readln(s);write('x = ');readln(x);sum:=s; k:=0;while sum<=2*s do begin k:=k+1; sum:=sum+sum*x/100; end;writeln('k = ',k);end.Пример:s = 2000x = 10k = 8