program pil_4_12_h(input,output);
type
	number = 1..180;
var
  k : number;
  res : integer;
begin
	write('Input position k : ');
  read(k);
  if k mod 2 = 0 then
  	res := (k div 2 - 1) mod 10
  else
  	res := (k div 2) div 10 + 1;
  WriteLn('The caracter on ',k,' position is ',res,'.');
end.