Goto lose_a_pencil;

-- Организуем цикл для всех рядов на верхнем уровне

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;