2012/13 – Fase scolastica – 08

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