Округление чисел - Pascal ABC

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

Добрый день! Помогите,пожалуйста.Есть программа,нужно максимально подробное описание для неё.То есть какая строчка что делает,зачем она нужна.Заранее спасибо

                    Листинг программы
                
 
                        
                          
                    
var
  x, x1, x2, x3, x4, x5: Real;
  n, x44: integer;
 
begin
  Writeln('Введите число');
  Readln(x);
  Writeln('Введите количество знаков после запятой');
  Readln(n);
  x1 := Frac(x * exp(ln(10) * n));
  x2 := Int(x1 * 10);
  x3 := Frac(x * exp(ln(10) * (n + 1)));
  x3 := Int(x3 * exp(ln(10) * 10));
  x4 := Frac(x * exp(ln(10) * (n - 1)));
  x4 := Int(x4 * 10);
  x44 := round(x4);
  x5 := Int(x * exp(ln(10) * n));
  x5 := x5 / exp(ln(10) * n);
  if (x2 = 5) and (x3 = 0) and (x44 mod 2 = 0) then 
    Writeln('Округлённое число = ', x5:1:n)
  else
    Writeln('Округлённое число = ', x:1:n);
end.

Решение задачи: «Округление чисел»

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

var x: real;
    n: integer;
begin
  write('x = ');
  readln(x);
  repeat //можно убрать, если проверки не требуется
    write('n = ');
    readln(n);
  until n >= 0; //можно убрать, если проверки не требуется
  writeln('Округлённое число: ', x:0:n)
end.

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

Переменная x объявлена как real, что означает, что она будет использоваться для хранения чисел с плавающей точкой.
Переменная n объявлена как integer, что означает, что она будет использоваться для хранения целых чисел.
В блоке write выводится сообщение «x = », за которым считывается значение переменной x с помощью функции readln.
Затем идет блок repeat, который повторяется до тех пор, пока значение переменной n больше или равно нулю.
Внутри блока repeat выводится сообщение «n = », за которым считывается значение переменной n с помощью функции readln.
После окончания блока repeat выводится округленное значение переменной x с шагом округления, указанным в переменной n.
Конец программы обозначается блоком end.