用pascal输出语句编写下列图形程序 1 121 12321 12343211121123211234321

用pascal输出语句编写下列图形程序 1 121 12321 12343211121123211234321
用pascal输出语句编写下列图形程序 1 121 12321 1234321
1
121
12321
1234321

用pascal输出语句编写下列图形程序 1 121 12321 12343211121123211234321

方法一：当输入的数据不超过10的时候（因为超过10的话结果不一样了）,可以用这样的方法实现：

var s:lint64;

      i,n:integer;

    begin

     readln(n);

     s:=0;

     for i:=1 to n do

        begin

          s:=s*10+1;

          writeln(' ':n-i+1,s*s);

        end;

   end.