È dato il seguente programma:
Program E8(Input, Output); Var mat : Array[1..10, 1..10, 1..10] Of Integer; i, j, k: Integer; Begin For i:=1 To 10 Do For j:=1 To 10 Do For k:=1 To 10 Do mat[i,j,k]:=i+j+k-3; For i:=1 To 10 Do Write(' ', mat[i, i, i]); Writeln() End.
Cosa viene visualizzato a video dall’esecuzione del programma?