на 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