Для данного положительного e и заданного x вычислить сумму ряда с

Блин пришлось помучиться потому что формула написана в образце не верно, не 2i+2, а 4i

var
    i: integer;
    sum, e, x, y, model: real;

begin
    read(x, e);
    i := 0;
    y := -1;
    repeat
        i := i + 1;
        y := y * -x * (4 * i - 3) / (4 * i);
        sum := sum + y;
        writeln(i:3, ' ', y:10:5, ' ', sum:10:5);
    until абс(y) lt; e;
    writeln();
   
    model := 1 - 1 / sqrt(sqrt(1 + x));
    writeln('Проверочное значение: ', model);
    writeln('Отклонение: ', абс(abs(sum) - abs(model)));
end.