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