С помощу 17 мищц челюсти и язика
Сначала двигаешься в право потом на верх(ученье лучше богатства)
Var
n:integer;
c:string;
begin
write('Введите число от 10 до 9999 ->');
readln(n);
Str(n,c);
writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.
Пример работы программы:
Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2
100*512*8 бит = 409 600 бит = 51 200 байт = 50 кб