PROGRAM Repeat2;
    VAR
        I, Sum: Integer;
BEGIN
    I := 0;
    REPEAT
    BEGIN               { Redundant }
        Sum := I;
        I := I + 1
    END                 { Redundant }
    UNTIL I = 5;
    WriteLn(Sum);
END.