Dãy chính phương vô hạn

Cho dãy vô hạn các số chính phương được viết liền nhau 1491625... .Hãy cho biết kí tự thứ n trong dãy trên là số nào.

Write('Nhap n:');readln(n);
For i:=1 to n do
if ktcp(i)=1 then
begin
str(i,s1);
s:=s+s1;
end;
Write('Ki tu thu ',n,' trong day la: ',s[n]);