Вкассу положили 2000 рублей. каждый месяц на имеющуюся в кассе сумму начисляют 1%. через сколько месяцев сумма достигнет 20 000 рублей? напишите программу на pascal abc.

Var k,n,i,j:longint;
begin 
k:=20000; 
While k<200000 do 
begin  k:=k+(k div 100 *1);  inc(i); end; 
writeln(i);
end.