FreePascal.ru

var a,xn,x0,e:real;
begin
write('a>=0 a=');
read(a);
write('e>0 e=');
read(e);
x0:=1;
xn:=0;
while abs(xn-x0)>e do
begin
xn:=x0;
x0:=(xn+a/xn)/2;
end;
writeln('xn=',xn:0:5);
write('x^0.5=',sqrt(a):0:5);
end.
так ??? а не могли бы помочь з блок схемой ??

Вот сама задача