È 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?