PROGRAM GoToStructure(Output);
    LABEL
        1, 2;
    VAR
        I, J: Integer;
BEGIN
    I := 0;
    J := 0;
    FOR I := 1 TO 3 DO
    BEGIN
1:      WriteLn(I);
        J := J + 1;
        IF J > 3 THEN
            GOTO 2;
        GOTO 1
    END;
2:  WriteLn('Done')
END.