Создайте проект для решения задачи с использованием цикла со счетчиком:
Перед началом наводнения уровень воды составлял Н метров. Во время наводнения каждый час уровень воды увеличивался на Р процентов по сравнению с уровнем предыдущего часа. Через сколько часов после начала наводнения уровень воды будет не менее чем К метров?
var
H:real;
P:integer;
N:integer;
i:integer;
begin
readln(H,P,N);
for i:=1 to N do
H:=H + H/100*P;
writeln(H);
end.