Решить задачу по информатике. Тема: "Цикл с Предусловием "пока""
Задача:
Василиса прекрасная сказала кощею бессмертному что выйдет за него замуж когда у него будет 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.