PROGRAM LabelTest;
    { use of LABEL section and GOTO keyword }

    LABEL
        10, 20, 30, 100, DONE;

BEGIN
    GOTO 30;
10:
    WriteLn('10');
    GOTO 20;
20:
    WriteLn('20');
    { GOTO DONE; }
    GOTO 100;
30:
    WriteLn('30');
    GOTO 10;
100:
DONE:
    WriteLn('Done!');
END.