Помогите решить пожалуйста. Процентная ставка - 25% годовых. Первоначальный вклад составил А рублей. Выведите на экране через сколько лет вклад больше С рублей. Через паскаль )

VarA,C,k:real;BeginWrite('A = ');ReadLn(A);Write('C = ');ReadLn(C);k:=0;While A<=C do   Begin   A:=A*1.25;   k:=k+1;   End;WriteLn('k = ',k)End.