На pascale дано натуральное число n (n< 9999). найти предпоследнюю цифру числа ( в предположении, что n> 10).

Var
  n:integer;
  c:string;
begin
  write('Введите число от 10 до 9999 ->');
  readln(n);
  Str(n,c);
  writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.

Пример работы программы:

Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2