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

[AntoxaS1]

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