Помогите исправить. Pascal

[zena]

Помогите исправить. Pascal

Помогите исправить 2 задания:
1)Вычислить приближенное значение бесконечной суммы с точностью до ε. Считается, что требуемая точность достигнута, если очередное слагаемое по модулю меньше, чем ε.
2)Вычислить:

 

[zena]

Вот что у меня получилось:

1)

Program zad3;
Var
i,n:byte;
s,k:real;
begin
S:=0;
Writeln('Введите n:');
Readln(n);
for i:=1 to n do
s:=s+sqrt(2);
writeln ('Сумма равна:',s);
end.

2)

program z4;
var s, next: real;
    i, ifact: longint;
begin
ifact:=1;
s:=0;
i:=1;
next:=1;
while next>0.04 do begin
      s:=s+next;
      i:=i+1;
      ifact := ifact * i;
      next:=Power(4,i) / power(7, ifact);
end;
writeln(s:4:2);
end.

Но они работают не верно...

 

[zena]

Всё получилось.

 

[Vladimir_S]

Всё получилось.

Получиться-то получилось, но явно не то. Во всяком случае, в программе №1 (которая соответствует заданию №2). Вместо

s:=s+sqrt(2);

должно быть

s:=sqrt(2+s);