Помогите срочно!!! Составьте алгоритм позволяющий вывести ** экран среднюю цифру...

Question

Помогите срочно!!! Составьте алгоритм позволяющий вывести на экран среднюю цифру некоторого числа введенного с клавиатуры. Алгоритм должен работать для чисел с нечетным кол-вом цифр.

Answer 1

Var a:integer;
begin
   writeln('введите трехзначное число: ');
   readln(a);
      a:=a mod 100 div 10;
      writeln('средняя цифра: ',a);
end.