Сумма ряда для Жени

const
    pi = 3.14;                                                                  //Используем константу

var
    x, a, b, c, S, eps : real;
    i, l : integer;
    ep : string;

begin
    ep := '0.001';                                                              //Точность в виде строки
    l := length (ep) - 2;                                                       //Количество знаков после запятой
    val (ep, eps, i);                                                           //Переводим в число
    writeln('eps : ', eps);                                                     //Выводим точность
    write('x = ');
    readln(x);                                                                  //Вводим икс
    i := 1; a := 1; b := 0; c := 1; S := 0;                                     //Вводим кучу лишних переменных для удобства чтения
    while c > eps do begin
        a := a * x;
        b := sin (i * pi / 4);
        i := i + 1;
        c := a * b;
        S := S + c;
    end;
    writeln('S = ', S : l+5 : l);                                               //Наш ответ
end.