program RootEquation;
varx, result: real;
beginx := 1; // начальное приближениеrepeatresult := power(5x, 0.2) + sqr(x) - tan(3x+1) - 3sqr(x) - 2x + 4;x := x - Result / (0.2 power(5x, -0.8) + 2x - 3 - 6x - 2);until abs(result) < 0.0001;
writeln('Корень уравнения: ', x:0:5);end.
program RootEquation;
var
x, result: real;
begin
x := 1; // начальное приближение
repeat
result := power(5x, 0.2) + sqr(x) - tan(3x+1) - 3sqr(x) - 2x + 4;
x := x - Result / (0.2 power(5x, -0.8) + 2x - 3 - 6x - 2);
until abs(result) < 0.0001;
writeln('Корень уравнения: ', x:0:5);
end.