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

program zz1;

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

begin

write (' введите число ');

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

k: = (n mod 100) div 10; / / получаем количество десятков в заданном числе

writeln (' количество десятков в заданном числе = ', k); / / выводим ответ

end.