Помогите решить задачу по информатике в паскале!Программа определения цифры десятков...

Question

Помогите решить задачу по информатике в паскале!
Программа определения цифры десятков натурального числа

Answer 1

var
  a: integer;
Begin
  readln(a);
  writeln(a mod 100 div 10);
End.