14 lines
298 B
OpenEdge ABL
14 lines
298 B
OpenEdge ABL
{$i1000}
|
|
program test(output);
|
|
const rcsversion='$Id$';
|
|
var b:false..true;
|
|
i:integer;
|
|
s:set of 0..999;
|
|
begin
|
|
b:=true; if not b then writeln('error 1');
|
|
s:=[0,100,200,300,400,500,600,700,800,900];
|
|
for i:=0 to 999 do
|
|
if (i in s) <> (i mod 100=0) then
|
|
writeln('error 2');
|
|
end.
|