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

Var s,p,sum:real; k:integer;
begin
write('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 = 400000
p = 10
k = 10