Составьте программу в паскаль с while. у малыша к банок варенья. в первый день карлсон съел одну банку, в каждый последующий день съедая в 1,5 раза больше, чем в предыдущий. через сколько дней варенье кончится?

Var K, den, s_el: real;
Begin
Writeln('Введите K банок');
readln(K);
s_el:=1;
K:=K - s_el;
den:=1;

While (K>0) do
Begin
    s_el:= s_el * 1.5;
    K:=K - s_el;
    den:=den+1;
 end;

Writeln('Варенье кончится через ', den, ' дней');

readln();
end.