Tags: funny comment icons, create icon collages, folder icons in leopard, developer icons, emo boy icons For K: = 1 To 10 Do Begin A [I, K]: =Trunc (Random*100) +1; Write (A [I, K]:6); If K> I Then S: = S+A [I, K] End; Writeln End; Writeln (' the Sum of units above ??. Diagonals ?????V ', S) End. If the data model in any task cannot be reduced to the linear or plane table arrays of any dimension can be used. The N-dimensional array is characterised N by indexes. A format of the description of this kind The data: Type <A type name> =Array [<a range ???????1>, <a range ???????2>... <A range of index N>] Of <type of components>; The separate unit is named so: <A name of the array> [<the Index 1>, <the Index 2>..., <Index N>] Procedures and functions At solution of difficult volume tasks it is often expedient to divide them into more simple. The method of consecutive detailing allows to make algorithm of operations which, without being simple, represent Independent enough algorithms. In this case speak about auxiliary algorithms or subroutines. Usage of subroutines allows to make the main program more evident, clear, and in a case, When the same routine meets in the program some times, even shorter and effective.