Для любого целого аргумента вернуть значение, полученное изменением порядка следования цифр на обратный - Pascal ABC

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

Напишите функцию, которая для любого целого аргумента возвращает целое значение, полученное изменением порядка следования цифр на обратный.

Решение задачи: «Для любого целого аргумента вернуть значение, полученное изменением порядка следования цифр на обратный»

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

function revers(n:integer):integer;
var s,i:integer;
    k:boolean;
begin
k:=n<0;
n:=abs(n);
s:=0;
while n>0 do
 begin
  i:=n mod 10;
  s:=s*10+i;
  n:=n div 10;
end;
if k then result:=-s
else result:=s;
end;
var n:integer;
begin
write('n=');
readln(n);
write(revers(n));
end.

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

Функция revers принимает один аргумент типа integer и возвращает результат типа integer.
В начале функции определяется переменная k, которая будет использоваться для определения знака числа n. Значение k устанавливается равным n<0.
Затем число n приводится к положительному значению с помощью функции abs(n).
Создается переменная s, которая будет использоваться для хранения результата. Значение s устанавливается равным 0.
Затем начинается цикл while, который выполняется до тех пор, пока число n не станет равным 0.
Внутри цикла определяется переменная i, которая будет использоваться для получения последней цифры числа n.
Значение s обновляется с помощью оператора *=, добавляя к нему результат умножения s на 10 и остатка от деления n на 10, сохраненного в переменной i.
Затем число n делится на 10 с помощью оператора div.
После завершения цикла значение переменной s будет содержать обратный порядок цифр числа n.
В конце функции проверяется значение переменной k. Если оно равно true, то результатом функции будет отрицательное значение s, иначе результатом будет положительное значение s.
В основной части программы выводится сообщение n=, за которым считывается значение числа n с помощью функции readln().
Затем вызывается функция revers(n), передавая ей значение числа n.
Результат функции выводится на экран с помощью функции write().