умнажение двух других цыфр и делить на 2
program z1;
var a: integer;
begin
write('Введите целое трёхзначное число: ');
readln(a);
write ('Вторая цифра числа ',a div 10 mod 10 )
end.
Объяснение:
a div 10 mod 10 - средняя цифра числа
div - целочисленное деление
mod - остаток от целочисленного деления
