Дано трехзначное число. Найти вторую цифру в записи числа.

Python:

print(input('Введите число:')[1])

Pascal:

var

i: integer;

d: string;

begin

readln(i); // запрашивает число. Если нужно было не так, а присваиванием, то замени на i := <number>

str(i,d);

writeln(d[2]);

end.