Вычислить корень квадратный второй цифры трехзначного числа - Pascal ABC

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

Ввести трехзначное число .Вычислить корень квадратный второй цифры

Решение задачи: «Вычислить корень квадратный второй цифры трехзначного числа»

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

var a:integer;
begin
repeat
writeln('Введите трехзначное число');
readln(a);
until (a > 99) and (a < 1000);
writeln('Корень квадратный из второй цифры числа = ', sqrt(a div 10 mod 10));
end.

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

Создается переменная a типа integer, которая будет использоваться для хранения введенного пользователем трехзначного числа.
Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной a больше 99 и меньше 1000.
Внутри цикла выводится сообщение Введите трехзначное число для запроса у пользователя трехзначного числа.
С помощью функции readln() считывается введенное пользователем трехзначное число и сохраняется в переменной a.
Проверяется, что значение переменной a находится в диапазоне от 100 до 999. Если это условие выполняется, то цикл продолжается.
Вычисляется корень квадратный из второй цифры числа с помощью функции sqrt(a div 10 mod 10). Здесь a div 10 mod 10 используется для получения остатка от деления числа a на 10, а затем результат делится на 10, чтобы получить вторую цифру числа. Корень квадратный из этой цифры вычисляется с помощью функции sqrt().
Выводится сообщение с результатом вычислений.