Khi làm toán, Tèo nhận thấy 11^2= 121, 111^2=12321, 1111^3=1234321... Nhưng khi có nhiều hơn 9 chữ số 1 thì quy luật sẽ thay đổi. Cho số S= 111...11. (gồm n chữ số 1, trong hệ thập phân). Bạn hãy viết chương trình giúp tèo tính S^2 nhé. DỮ liệu vào: Vào từ file văn bản BL2.INP 1 dòng ghi số n là số lượng chữ số 1 của S (1<=n<=1000000) Kết quả ghi vào file BL2.OUT ghi kết quả của S^2 Pascal nha mn

var f,g:text;s,s1:string;n,i:1..9;
Begin
     assign(f,'BL2.inp');reset(f);
     assign(g,'BL2.out');rewrite(g);
     readln(f,n);
     for i:=1 to n do
     begin
          str(i,s1);
          s:=s+s1;
     end;
     for i:=n-1 downto 1 do
     begin
          str(i,s1);
          s:=s+s1;
     end;
     writeln(g,s);
     close(g);
End.

var f,g:text;s,s1:string;n,i:1..9;
Begin
     assign(f,'BL2.inp');reset(f);
     assign(g,'BL2.out');rewrite(g);
     readln(f,n);
     for i:=1 to n do
     begin
          str(i,s1);
          s:=s+s1;
     end;
     for i:=n-1 downto 1 do
     begin
          str(i,s1);
          s:=s+s1;
     end;
     writeln(g,s); 
     close(g); 
End.