VAR
       A:ARRAY[1..20] OF INTEGER;
       I,J:integer;
     BEGIN
        FOR I:=1 TO 20 DO
          BEGIN
           A[I]:=0;
           FOR J:=1 TO 1 DO
              A[I]:=A[I]+2*J-1;
         END;
         FOR I:=1 TO 20 DO
         Begin
            WRITE(A[i]:5);
            IF I mod=5=0  THEN writeln;
         END;
    END.
输出：1 4 9 16 25
36 49 64 81 100