Есть числовой ряд: 101112...979899, в котором подряд выписаны все двухзначные числа. Определить двухзначное число из этого ряда, образованное парой цифр, в которую входит k-ая цифра. k вводится и лежит в диапазоне от 1 до 180. Например, если вводится k=3, то в ряду это цифра 1, которая входит в двухзначное число 11.

Program test ;Var a:string; k, i, i1:integer;Begin If k<=180 then begin For i:=1 to 9 do begin For i1:=0 to 9 do a:=a+str(i*10+i1); End; If k mod 2 = 0 then writeln(copy(a,k-1,2)); Else writeln(copy(a,k,2); End; Else writeln('Введённое число больше допустимого значения');End;