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

[AntoxaS1]

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