type tmyint=array[0..300] of integer;
var a,b,c:tmyint;
procedure summ(var x,y,r:tmyint);
var i,p:integer;
begin p:=0;
for i:=0 to 300 do begin
 r[i]:=(p+x[i]+y[i]) mod 10;
 p:=(p+x[i]+y[i]) div 10; 
                   end;
end;

procedure set0(var x:tmyint);
var i:integer;
begin for i:=0 to 300 do x[i]:=0;
end;

procedure myreadln(var x:tmyint);
var i,a:integer; s:string;
begin
 set0(x); readln(s);
 for i:=1 to length(s) do begin
     val(s[i],x[length(s)-i],a);
                          end; 
 
end;


begin
 myreadln(a); writeln(a[2]);
end.