Решить по информатике. тема: "цикл с предусловием "пока"" : василиса прекрасная сказала кощею бессмертному что выйдет за него замуж когда у него будет 5000 сундуков, каждый год количество сундуков увеличивается на 20%. через сколько лет василиса выйдет замуж?

Если количество сундуков которое было изначально нужно считать из клавиатуры, тогда вот
program Project1;var  chest:double;  year:integer;begin  readln(chest);  year:=0;  while chest<5000 do  begin    chest:=chest*1.2;    inc(year);  end;writeln(year);readln(chest);end.