begin
   comment LIBRARY 1;
   array
     V,
     A,
     C[1 : 1];
   integer
     K;
   integerprocedure I;
   begin
      I ≔ 1;
      K ≔ K + 1
   end;
   K ≔ 0;
   A[I] ≔ 1;
   C[I] ≔ 3;
   for V[I] ≔ A[I] step A[I] until C[I] do
     ;
   OUTREAL(99, K)
end