var k,h:integer;
begin
write('Введите k:');
readln(k);
if k>100 then begin 
  h:=(k mod 1000)div 100;
  writeln(h);
  end
else
 writeln('В этом числе нет сотен');
end.