DECLARE
 Beginn NUMBER := 1;
 Ende NUMBER := 10;
BEGIN
 WHILE Beginn < Ende LOOP
  IF Beginn = 5 THEN
    goto end_loop;
  END IF;
  -- mach was
  dbms_output.put_line(Beginn);
  <>
  -- goto next
  Beginn := Beginn + 1;
 END LOOP;
END;