Определить символ, который находится на заданной позиции новогодней ленты

function How(i:longword):byte;
var si:byte;
begin
case i of
       1..3:si:=si+1;
       4..9:si:=si+2;
       10..31:si:=si+3;
       32..99:si:=si+4;
       100..316:si:=si+5;
       317..999:si:=si+6;
       1000..3162:si:=si+7;
       3163..10000:si:=si+8;
       end;
How:=si;
end;
var stri,temp:string;
    si,i,n,count,j,tempik:longword;
begin
    readln(n);
    count:=0;
    for i:=1 to round(sqrt(n)) do
    begin
       tempik:=i*i;
       str(tempik,temp);
       writeln(temp);
       j:=1;
       si:=How(i);
       while (n>=count) and (j<=si) do
       begin
         stri:=temp[j];
         inc(j);
         inc(count);
         writeln(stri);
       end;
       if n>=count
       then begin
         inc(count);
         stri:='*';
       end;
 
 
 
    end;
    writeln(stri);
    readln;
end.

uses crt;
var n,k,i:integer;
    s:string;
    c:char;
begin
write('n=');
readln(n);
k:=0;
i:=0;
while k<n do
 begin
  inc(i);
  str(i*i,s);
  k:=k+length(s);
  if k<n-1 then inc(k)
  else if k=n-1 then
   begin
    c:='*';
    k:=n
   end
  else if k=n then c:=s[length(s)]
  else if k>n then
   begin
    c:=s[length(s)-(k-n)];
    k:=n
   end
 end;
writeln;
write(c)
end.