Сумма 10 000 рублей положена в банк. прирост - 5% годовых. через сколько лет сумма увеличится вдвое? составить программу на паскаль

Program qq;
var years:integer;
var res, a:double;
begin
  res:=10000;
  a:=res*2;
  years:=0;
    while (res < a) do
    begin
      res:=res + (res/100)*5;
      years:=years+1;
    end;
  write(years);
end.