Delphi 7? только формулу, кто знает помогите!!!

Question

перед началом наводнения уровень воды в реке составлял Н м. Во время наводнения каждый час уровень воды рос на Р% от уровня предыдущей часа. Каким будет уровень воды через N часов после начала наводнения? Через сколько часов после начала наводнения уровень воды будет не менее К м?

Анжела Сантьяго · Accepted Answer

тут итерации и не будет просто формула:
var: H, P, N, K,i,j:integer;
....задаём всё

Первое:
for i:=1 to N do
begin
H:=H+((H/100)*P);
i++;
end;
message(H);

Второе:
for j:=1 to 10000 do
begin
H:=H+((H/100)*P);
if H<=K then break;
i++;
end;
message(j);