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

program zz1;

var k, i, day:real; / /задаем переменные

begin

write ('введите сколько банок варенья было у Карлсона ');

read (k); / /вводим количество банок варенья

i:=1; / /задаем сколько Карлсон съел банок варенья в первый день

k:=k-i; / /уменьшаем количество банок

day:=1; / /считаем день

while k>0 do / /организуем цикл, пока не кончились банки с вареньем

begin

i:=i*1.5; / /увеличиваем количество съеденных банок с вареньем

k:=k-i; / /уменьшаем количество банок

day:=day+1; //считаем день

end;

write (day); //выводим ответ

end.