Клиент положил деньги в банк под n% годовых.составьте алгоритм и программу,определяющие,через сколько его вклад удвоится.

var
  c, k, n: integer;
begin
  writeln('Введите процент: ');
  readln(n);
  while k < 100 do
  begin
    k := k + n;
    inc(c);
  end;
writeln(c * 12, ' мес.');   
end.