-- Организуем цикл для всех рядов на верхнем уровне
FORrownum IN 1..6 LOOP
-- Организуем цикл для всех парт в текущем ряду
FOR desknum IN1.. 10 LOOP
-- процесс добавления карандаша на каждую парту
. . .
<<lose_a_pencil>>
pencilnum := pencilnum - 1;
IF pencilnum < 1 THEN
GOTO no_more_pencils;
END IF;
END LOOP;
END LOOP;
-- после метки идет оператор, который не производит никаких действий
<<no_more_pencils>>
NULL;
END;