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

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

Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var n,a,b:integer;
begin
write('n - ');
read(n);
a:=n mod 10;
b:=n div 1000;
if a=b then
write('YES')
else
write('NO');
end.

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

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

uses crt;
var n,a,b:integer;
begin
write('n - ');
readln(n);
a:=n mod 10;
b:=n div 100 mod 10;
if a=b then write('YES')
else write('NO');
end.

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

В данном коде используется язык программирования Pascal ABC. Код начинается с использования функции crt, которая предоставляет доступ к стандартному вводу и выводу. Затем определяются три переменные: n, a и b, которые будут использоваться для хранения введенного числа, его последней цифры и второй цифры соответственно. Далее происходит чтение числа от пользователя с помощью функции readln. Затем выполняется операция деления числа на 100 и взятие остатка от деления на 10, что позволяет получить вторую цифру числа. После этого сравниваются значения переменных a и b. Если они равны, то выводится строка YES, иначе выводится строка NO. Таким образом, данный код проверяет, совпадают ли в числе вторая и последняя цифры.