Дана сумма вклада и процент, начисляемый за год. Через сколько лет вклад превысит миллион? (Pascal)

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