Напишите программу,которая вводит четырехзначное число и вырезает из него вторую цифру(на языке паскаль)

program zz1;
var n, k:integer; // задаем переменные целого типа
begin
write(' введите натуральное четырехзначное число ');
read(n); // вводим с клавиатуры четырехзначное число
k:=(n mod 100) div 10; // получаем вторую цифру, отделив от него последние две цифры через деление на 100 с выделением остатка, потом от полученного результата получаем первую цифру через деление на 10 с выделением целой части результата
writeln(' Вторая цифра заданного четырехзначного числа = ', k); // выводим ответ
end.