@@ -1,4 +1,7 @@
{$mode objfpc}{$H+}
+
+{$R-}
type
TmyRange = 1..10;
var
@@ -7,4 +10,5 @@ var
begin
Mark := [5,11]; { don't throw a range check error here if range checking is off }
for x in Mark do write(x,' IN Mark');
+ writeln;
end.