Дано натуральное число n(n>9). Найти цифру десятков в нем и вывести её на экран. Решить...

Program YoungFolks;
uses crt;
var
n: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите число N '); readln(n);
writeln('Цифра десятков число N равна ', (n div 10) mod 10);
end.

Пояснение:

Вводим число N и дальше всю работу выполняет формула (n div 10) mod 10:

- сначала вычисляется неполное частное от деления числа N на 10 (делим на 10 и берём только целую часть резульата - это тоже самое, что просто отбросить последнюю цифру). Например для числа 1256: 1256 div 10 = 125

- потом находим отстаток от деления предыдущего результата опять на 10 (то есть берём последнюю цифру). Для нашего примера: 125 mod 10 = 5

Цифра 5 и есть цифра десятков исходного числа.

Дано натуральное число n(n>9). Найти цифру десятков в нем и вывести её ** экран. Решить...