program jjl;
var x,a,b,c,s,p:integer;
BEGIN
writeln('vv chislo');
readln(x);
a:=x div 100 mod 10;
writeln('Число сотен равно ',a);
readln;
END.