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

program zz1;

var n, k:integer; / / задаем переменные целого типа

begin

write (' введите натуральное четырехзначное число ');

read (n); / / вводим с клавиатуры четырехзначное число

k: = (n mod 100) div 10; / / получаем вторую цифру, отделив от него последние две цифры через деление на 100 с выделением остатка, потом от полученного результата получаем первую цифру через деление на 10 с выделением целой части результата

writeln (' Вторая цифра заданного четырехзначного числа = ', k); / / выводим ответ

end.