составить код и блок схему.

[AntoxaS1]

в паскале и маткаде составить программы решения в которых пользователь вводит число итераций (решений) М, программы проводят введенное число итераций (решений), и выводят в качестве результата полученную точность решения Е.
var
a,b,x1,x,n,E:real;
begin
write('Введите значение точности E: ');
readln(E);
a:=2;
b:=3;
n:=0;
x:=(a+b)/2;
x1:=x-((ln(x)-x+1.8)*(1/(1/abs(x)-1)));
n:=n+1;
while abs(x1-x)>E do
begin
x:=x1;
x1:=x-((ln(x)-x+1.8)*(1/((1/abs(x)-1))));
n:=n+1;
end;
write('x=',x1:1:15,' n=',n);
end.