Объяснить код

    readln(n); // чтение вводимых цифр 
    m := 0;// ровняем переменную m нулю
    while n>0 do begin
        a := n mod 10;
        n := n div 10;
        m := m*10 + a;
    end;
    m:= m*m;
    writeln(m);

readln(n); // чтение вводимого числа
m:=0;// новое число пока 0
while n>0 do //пока введенное число больше 0
 begin
  a := n mod 10;//берем последнюю цифру
  n := n div 10;//сокращаем число на 1 разряд
  m := m*10 + a;//умножаем новое число на 10 и прибавляем взятую цифру
 end; //перевернули число
m:= m*m;//возвели его в квадрат
writeln(m);//вывели на экран

var
 n,m,a: integer;
 
begin
readln(n);   // Чтение вводимых цифр и присвоение значения переменной n.
m := 0;     // Установка  переменной  m  в нуль.
while n > 0 do          // Начало цикла. Пока значение переменной n больше нуля продолжать...
begin                       // Начало тела цикла.
    a := n mod 10;     // Присвоить переменной а остаток целочисленного деления  значения n на 10.
    n := n div 10;       // Присвоить переменной n результат целочисленного деления значения n на 10.
    m := m*10 + a;  // Присвоить переменной m результат умножения переменной m на 10 и сложения значения 
                              //   переменной a.
end;                       // Конец тела цикла. Возвращение к началу цикла.
m:= m*m;              // Присвоить переменной m результат перемножения значений переменных m и m (возведение в 
                              //    квадрат).
writeln(m);             // Вывод значения переменной m на экран.
readln;
end.