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

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

Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

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

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

var n,p:integer;
begin
write('Введите целое число n=');
readln(n);
n:=abs(n);
p:=n mod 10;
while n>10 do n:=n div 10;
if p=n then write('Первая и последняя цифры равны')
else write('Первая и последняя цифры не равны')
end.

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

Создаются две переменные: n и p типа Integer.
Выводится сообщение 'Введите целое число n=', чтобы пользователь мог ввести значение для переменной n.
С помощью функции readln(n) происходит чтение введенного пользователем значения и сохранение его в переменной n.
Значение переменной n преобразуется в абсолютное значение с помощью функции abs(n).
Вычисляется остаток от деления значения переменной n на 10 с помощью оператора mod и сохраняется в переменной p.
Запускается цикл while, который выполняется до тех пор, пока значение переменной n больше 10.
Внутри цикла значение переменной n делится на 10 с помощью оператора div и сохраняется в переменной n.
Проверяется равенство значения переменной p и n. Если они равны, то выводится сообщение 'Первая и последняя цифры равны'.
Если равенство не выполняется, то выводится сообщение 'Первая и последняя цифры не равны'.
Программа завершается.