FOR Counter:=1 TO 5 BY 1 DO
INT1:=INT1/2;
 IF INT1=0 THEN
  CONTINUE; (* 提供除以零 *)
 END_IF
Var1:=Var1/INT1; (* 如果INT1不为0，执行 *)
END_FOR;

Erg:=Var1;