begin
   integer J,K;
   array A[0:3];
   K ≔ 2;
   for J ≔ 1 step 1 until K do
      begin
         I ≔ 0;
      end;
end