{$R+}type array_index = 0 .. 9;var x: array_index;var war: array[array_index] of array_index;begin x := Trunc(Pi * 3);war[x+1] := High(array_index);end.
Standard input is empty
Standard output is empty
Runtime error 201 at $00000000004010DD $00000000004010DD
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!