Дано натуральное k от 1 до 180. Написать программу для определения цифры, которая находится в k-той позиции последовательности.10111213…9899.

Var
  k : integer;
begin
  read (k);
  if k mod 2 = 0 then
    writeln ((k div 2 - 1) mod 10)
  else writeln ((k div 2 - 1) div 10 + 1);
end.

вроде так