PROGRAM GoTo1(Output);
    PROCEDURE Test;
        LABEL
            1;
        VAR
            I: Integer;
    BEGIN
        I := 0;

    1:  WriteLn('Hello');
        I := I + 1;
        IF I < 3 THEN
        BEGIN
            GOTO 1;
        END
    END;
BEGIN
    Test;
END.