Дано натуральное число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи).
Var a:integer; begin readln(a); writeln((a mod 100) div 10); end.