begin
   array
     A[1 : 9];
   integer
     I,
     S;
   procedure DUMMY(A);
      value
        A;
      array
        A;
      SUM(A);
   procedure SUM(A);
      array
        A;
      for I ≔ 1 step 1 until 9 do
         begin
            S ≔ S + A[I];
            A[I] ≔ 0
         end;
   S ≔ 0;
   for I ≔ 1 step 1 until 9 do
        A[I] ≔ I;
   DUMMY(A);
   OUTREAL(99,S);
   for I ≔ 1 step 1 until 9 do
        if A[I]≠ I then
        OUTREAL(99,I)
end