Если вторая цифра в числе равна 2, то напечатать "Да", в противном случае напечатать "Нет" - Pascal ABC

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

Дано целое четырехзначный число Х. Если вторая цифра в том числе есть 2, то напечатать "Да", в противном случае напечатать "Нет".

Решение задачи: «Если вторая цифра в числе равна 2, то напечатать "Да", в противном случае напечатать "Нет"»

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

var n:integer;
begin
repeat
write('Введите четырехзначное число n=');
readln(n);
until(n>999)and(n<10000);
if n div 100 mod 10=2 then write('Вторая цифра в числе равна 2')
else write('Вторая цифра в числе не равна 2')
end.

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

Объявлена переменная n типа integer (целое число).
Запускается цикл repeat, который будет выполняться до тех пор, пока пользователь не введет число в диапазоне от 1000 до 9999.
Внутри цикла выводится приглашение для ввода числа.
С помощью функции readln введенное число сохраняется в переменной n.
С помощью оператора until проверяется условие для продолжения цикла.
Внутри условного оператора if проверяется, равна ли вторая цифра числа 2. Для этого используется операция деления с остатком n div 100 mod 10.
Если вторая цифра равна 2, то выводится сообщение Вторая цифра в числе равна 2.
Если вторая цифра не равна 2, то выводится сообщение Вторая цифра в числе не равна 2.