{$R+}
type array_index = 0 .. 9;
var x: array_index;
begin
 x := 10;
end.