lang/pc/test/t5.p

   1 {$i1000}
   2 program test(output);
   3 const rcsversion='$Id: t5.p,v 2.2 1994/06/24 12:37:04 ceriel Exp $';
   4 var b:false..true;
   5     i:integer;
   6     s:set of 0..999;
   7 begin
   8   b:=true; if not b then writeln('error 1');
   9   s:=[0,100,200,300,400,500,600,700,800,900];
  10   for i:=0 to 999 do
  11     if (i in s) <> (i mod 100=0) then
  12       writeln('error 2');
  13 end.