Паскаль даны целое число k (1≤ k≤ 180) и последовательность цифр , в которой выписаны подряд все двухзначные числа. определить k-ю цифру.

Var
   k,i:integer;
   s,x:string;
begin
for i:=10 to 99 do  s:=s+IntToStr(i);
writeln(s);
write('Введите число k: ');
readln(k);
x:=s[k];
writeln(k,'-я цифра: ',x)
end.