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.