Дано целое неотрицательное число N, определите число десятков в нем (предпоследнюю цифру числа). Если предпосленей цифры нет, то можно считать, что число десятков равно нулю. (Напишите программу для решения в Pascal. ABC)

program zz1;

var a, b, n:integer;

begin

read (n); / / вводим исходное число

a:=n mod 100; / / находим две последние цифры числа (mod определяет остаток от деления одного числа на другое)

b:=a div 10; / / отделяем число десятков

write (b); / / выводим ответ

end.