программы с циклом ПОКА и ДО (Тема 8) (4)

program StudMillioner;
var
  g:integer;
  d:real;
begin
  Write('Начальное количество денег: ');
  readln(d);
  g:=0;
  while d<1000000 do begin
    g:=g+1;
    d:=d+(d*7.2/100);
  end;
  writeln(g,' лет до достидения цели!');

end.