var
    a, a1, s, st, x, Eps : real;
    i : integer;

BEGIN
    write ('Введите Eps. Eps = ');
    readln (Eps);
    while Eps <= 0 do
    begin
        write ('Введено недопустимое значение Eps. Введите Eps. Eps = ');
        readln (Eps);
    end;
    write ('Введите x. x = ');
    readln (x);
    while (x >= 1) or (x <= 0) do
    begin
        write ('Введено недопустимое значение x. Введите x. x = ');
        readln (x);
    end;

    // Вычисление частичной суммы
    a := (x*(4-x))/(2*3*4);
    s := a;
    i := 2;
    while (abs(a) > Eps) do
    begin
        a1 := a;
        a := a1*power(x, 4)*(4*i+4-x)/((4*i-x)*(4*i+1)*(4*i+2)*(4*i+3)*(4*i+4));  //рекуррентная формула
        s := s + a;
        inc (i);
    end;

    // Вычисление точного значения суммы
    st := (2-sin(x)-cos(x)-exp(-x))/(2*x*x);
    writeln ('Примерное значение суммы: ', s, '; точное значение суммы: ', st);
END.