PROGRAM TestRepeat;

BEGIN
    j := 1;
    k := 1;
    
    REPEAT
        i := j*k + j/k - j
    UNTIL i >= 0;
    
    WRITELN (i:1:0)
END.
