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

program youngfolks; uses crt; var  n: integer; begin  writeln('*** alphaues is ***');   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 и есть цифра десятков исходного числа.

1. взять мясо

2. провернуть мясо в мясорубке

3. взять тесто

4. закатать мясо в тесто

5.  поджарить полученное

1.взять сыр

2. нарезать сыр

3. взять тесто

4. закатать сыр в тесто

5. поджарить полученное

вроде бы так, хотя впервые вижу, такое ограничение в