program z1;
var a:integer;
begin
read(a);
write(a mod 100 div 10)
end.
Объяснение:
Ввод числа
Вывод количества десятков
a mod 100 - находим 2 последние цифры числа (остаток от деления на 100)
(a mod 100) div 10 - находим первую цифру из 2 последних цифр числа (целочисленное деление на 10)
Если число меньше 10, то 0 выдаст автоматически, но можно и прописать отдельно через условие:
program z1;
var a:integer;
begin
read(a);
if a<10 then write(0)
else write(a mod 100 div 10)
end.