Question

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

Answer 1

var a:integer;
begin
readln(a);
writeln((a mod 100) div 10);
end.