Двузначное число, образованное парой, в которую входит k-тая цифра - Turbo Pascal

Формулировка задачи:

Даны целое число k (1<=k<=180) и последовательность цифр 1011121314…9899, в которой выписаны подряд все двузначные числа. Определить: 1) k-тую цифру этой последовательности и 2) двузначное число, образованное парой, в которую входит k-тая цифра. Первую часть задания решить смог

program ind13;
uses crt;
var k,z:integer;
begin
    clrscr;
    repeat
    writeln('enter k[1-180]');
    readln(k);
    until (k>=1)and(k<=180);
        clrscr;
        writeln('entered k= ', k);
        z:=((k-1) mod 2)*((k-1) mod 20) div 2+(k mod 2)*((k div 20)+1);
    writeln('a= ',z);
readln
end.

найдя здесь различные решения, а со второй частью проблемы, результат должен быть примерно такой при вводе 180 или 179 выводиться 99, при вводе 178 или 177 выводиться 98 и т.д.

Решение задачи: «Двузначное число, образованное парой, в которую входит k-тая цифра»

Листинг программы

var k: integer;
begin
  ReadLn(k);
  WriteLn(9+((k+1) div 2))
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач, связанных с обработкой данных, включая работу с числами. Переменная k представляет собой целое число, которое считывается из стандартного ввода. Затем происходит вычисление значения выражения 9 + ((k+1) / 2) и результат записывается в стандартный вывод. В данном случае, код вычисляет двузначное число, образованное парой, в которую входит k-тая цифра. Результатом будет число, состоящее из двух цифр, где первая цифра равна 9, а вторая цифра равна (k+1) деленное на 2. Например, если значение переменной k равно 5, то результатом выполнения программы будет число 18.