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

program z27;

{Определить,какая цифра находится в позиции

числовой последовательности-1011112131415...

...979899-подряд выписаны все двузнач.числа}

uses crt;

var i,k:longint;j,a:string;

begin

clrscr;

  write('введите номер :');readln(k);

   for i:=10 to 99 do

           begin

           str(i,j);

           a:=a+j;

           end;

   write('Ответ:',a[k]);

 readln;

 end.