Нужно составить программу по информатике (тема-оператор цикла с предусловием). : было 3000 дол.через сколько лет на счету будет 10000 дол,под 15%. всем,заранее кто ответит.

Var
n,k,a:integer;
begin 
a:=3000;
 n:=0; 
while a<10000 do 
begin   
n:= n+1; 
 a:= a+450;   
end; 
writeln (n); 
end.
в итоге выдает 16