Число десятков - Pascal ABC

Разбор:

Чтобы найти число десятков числа n надо найти остаток от деления n на 100, а потом этоже чило делить нацело на 10.

Условие:

Дано натуральное число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи).

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

var a,n:integer;
    begin
    readln(n);
    a:=(n mod 100) div 10;
    writeln(a);
    end.

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

Объявлены две переменные: a и n (строки 1-2)
В строке 3 происходит чтение числа из консоли и сохранение его в переменной n
В строке 4 происходит вычисление значения переменной a. Используется операция модуля (mod) для получения последней цифры числа, а затем операция деления (div) для получения значения переменной a. Например, если было введено число 123, то a будет равно 12 (123 mod 100 = 3, 3 div 10 = 0, 123 - 3 = 120, 120 div 10 = 12)
В строке 5 выводится значение переменной a на экран
В строке 6 заканчивается выполнение программы