begin
   comment LIBRARY 1;
   integer
     I;
   integerarray
     A[1 : 10];
   I ≔ 1;
   for A[I] ≔ 1,
     2,
     3,
     4,
     5,
     6,
     7,
     8,
     9,
     10 do
        I ≔ I + 1;
   for I ≔ 1 step 1 until 10 do
        if A[I] ≠ I then
        OUTREAL(99, I);
   OUTREAL(99, 0)
end