Помогите решить задачи по паскалю (4шт)

Question

решить необходимо №2,3,4,5

Сергей Вансович · Accepted Answer

2. Посчитайте сумму за каждый месяц. В конце у вас выйдет минус - столько и надо просить. 
3. Ну посчитать и выяснить факториал. 
Остальные тоже простые. Если надо - пишите, могу сделать.

Анастасия Елисеева · Answer

4) 
n := 0; f := 1; 
while f <= a do begin inc(n); f :=f*n; end; 
writeln(n); 
 
5) 
s := x; k := 1, d := 1; 
while k <= n do begin inc(k); inc(d, 2); d := d * x * x / (d - 1) / d; s := s + d; end; 
writeln(s);