Двухзначное число имеет два разряда - десятки и единицы. Если k нечетное, то это цифра десятков в числе, а если четное - цифра единиц. А само число определяется как 10 плюс частное от целочисленного деления k-1 на 2.

var
  n, k: integer;

begin
  Write('Введите натуральное число k (k<=180): ');
  Readln(k);
  n := 10 + (k - 1) div 2;
  if (k mod 2 = 0) then n := n mod 10
  else n := n div 10;
  Writeln('Искомая цифра- ', n)
end.

Тестовое решение:
Введите натуральное число k (k<=180): 7
Искомая цифра- 1