составить алгоритм программы

[Alfis]

объясните пожалуйста алгоритм программы, а то я ничего в нем непонимаю, программа выводит введенное число в зеркальном отображении работает правильно

program ZADANIE_3 ;
uses Crt;
var
a: longint;

{----------------------------------------------}
{Процедура вывода зеркального отображения числа}
{параметры: а:исходное число }
{----------------------------------------------}

procedure Reverse(n:longint);
begin {Reverse}
write (n mod 10);
if (n div 10)<>0 then
Reverse(n div 10)
end; {Reverse}

begin {***ОСНОВНАЯ ПРОГРАММА***}
Clrscr;
write(' Введите любое целое число: ');readln(a);
writeln(' x= ',a);
writeln(' Инверсия этого числа будет выглядеть так:');
if (a<0) then
begin
a:=abs(a);
write(' x= -')
end
else
write(' x= ');
Reverse(a);
writeln
end.{***КОНЕЦ ОСНОВНОЙ ПРОГРАММЫ***}


заранее благодарен!!!

[lexus_ilia]

А я вот вам советую взять ручку листочек и по пунктам сделать так-же, как делает прога, тогда и поймёте, а не ждать ответа на форуме...