Дано трехзначное число найти число десятков в нем

Program three;

var

a, b, dec:integer;

begin

writeln ('Введите трехзначное число');

readln (a);

b:=a mod 100;

dec:=d div 10;

writeln (dec);

readln

end.

Используем две функции Pascal, для деления на множестве натуральных чисел.

Сначала применим mod (b:=a mod 100), эта функция выделяет остаток от деления. Например, а=123, тогда остаток от деления 123 на 100 b=23. Теперь, для нахождения числа десятком разделим b с помощью функции div, которая выделяет целую часть от деления, в нашем примере 23 делим на 10, целая часть dec=2