Решить . процентная ставка - 25% годовых. первоначальный вклад составил а рублей. выведите на экране через сколько лет вклад больше с рублей. через паскаль )

Var
A,C,k:real;
Begin
Write('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.