{$R+}
program ideone;
var x: array[0..9] of byte;
var y:integer;
begin
y:=10;
	x[y] := 42;
end.