Помогите решить, пожалуйста!!!! Даю 40 баллов!

Question

Помогите решить, пожалуйста!!!! Даю 40 баллов!

---

Comments

Могу прогу написать, алгоритм сам составишь. Язык то хоть какой?

---

Паскаль

---

Ненавижу паскаль, мертвый язык

---

Знаю, язык ни о чем, но решать надо, ничего не помню уже, прости)

Answer 1

var

x,days,y:integer;

begin

readln(x)

y=0;

days=0;

while y

begin

days=days+1;

y=y+4-3;

end;

writeln('количество дней :' , days);

END.