program maasss;var a: array[1..10,1..10,1..10,1..10,1..10] of byte;begina[1,2,3,4,5]:=123;write(a[1,2,3,4,5]);end.
Standard input is empty
123
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!