通过循环按行顺序为一个5*5的二维数组a赋1到25的自然数，然后输出该数组的左下半三角型

program sjx;
var a:array[1..5,1..5]of 1..25;
x,y,i:1..5;
begin
   for x:=1 to 5 do
     for y:=1 to 5 do
       a[x,y]:=(x-1)*5+y;
   for x:=1 to 5 do
     begin
       for y:=1 to x do
         begin
           write(a[x,y]);
           if a[x,y]<10 then write(' ') else write(' ')
         end;
       writeln
     end
end.

还运用了if语句来控制每两个数字之间的空格数，始输出成为一个标准的三角形
输出：
1
6   7
11  12  13
16  17  18  19
21  22  23  24  25