[ferget]

Код:

var a,n:integer;
    begin
    readln(n);
    a:=(n mod 100) div 10;
    writeln(a);
    end.