Нахождение приближенного значения квадратного корня положительного действительного числа - Pascal ABC

Формулировка задачи:

Построить алгоритм в виде блок-схем и написать соответствующую программу на языке Pascal (С) для решения задач: Составить алгоритм для нахождения приближенного значения квадратного корня положительного действительного числа a с заданной точностью ,используя рекуррентную формулу , где а - начальное приближение

Решение задачи: «Нахождение приближенного значения квадратного корня положительного действительного числа»

Листинг программы

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.

Объяснение кода листинга программы

Создаются переменные a, xn, x0, e типа real.
Выводится сообщение a>=0 a= для проверки ввода пользователя.
Считывается значение переменной a.
Выводится сообщение e>0 e= для проверки ввода пользователя.
Считывается значение переменной e.
Инициализируются переменные x0 и xn нулевыми значениями.
Запускается цикл while, который будет выполняться до тех пор, пока abs(xn - x0) > e.
Внутри цикла переменная xn инициализируется значением x0.
Переменная x0 инициализируется значением (xn + a/xn) / 2.
После выхода из цикла переменная xn будет содержать искомый результат.
Выводится сообщение xn=, за которым следует значение xn.
Выводится сообщение x^0.5=, за которым следует значение sqrt(a). Это значение является приближенным квадратным корнем из a.