Напишите программу, сколько лет нужно хранить К долларов в банке под Р%, чтобы стать миллионером?

решите по примеру как на фото.
БЕЗ ВСЯКИХ INC-ОВ, сразу в бан за такие решения, я тоже могу в интернете их найти и без вас ЗАРАНЕЕ УМНОМУ ЧЕЛОВЕКУ КОТОРЫЙ НАПИСАТЬ ЭТУ ПРОГУ!

program million;

var k,p,v:real;

g:integer;

begin

write('Введите количество долларов в банке ');

readln(k);

writeln('Введите процент годовых в банке ');

read(p);

g:=0;

v:=k;

while v<1000000 do

begin

v:=v+v*p/100;

g:=g+1;

end;

writeln('Через ',g,' лет вы станете миллионером')

end.

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);