{$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.