Day 21 part 1

BEGIN
    [1:2] INT pos := (read int, read int);
    [1:2] INT score := (0, 0);
    INT diceroll := 1;
    INT dicerolls := 0;
    INT turn := 0;
    WHILE
        score[1] < 1000 AND score[2] < 1000
    DO
        IF diceroll LE 98 THEN
            pos[turn + 1] +:= 3 * diceroll + 3
        ELSE IF diceroll = 99 THEN
            pos[turn + 1] +:= 200
        ELSE
            pos[turn + 1] +:= 103
        FI FI;
        dicerolls +:= 3;
        pos[turn + 1] := pos[turn + 1] MOD 10;
        IF pos[turn + 1] = 0 THEN
            pos[turn + 1] := 10
        FI;
        score[turn + 1] +:= pos[turn + 1];
        turn := (turn + 1) MOD 2;
        diceroll +:= 3;
        IF diceroll > 100 THEN diceroll -:= 100 FI
    OD;
    IF score[1] > score[2] THEN
        print((score[2] * dicerolls, new line))
    ELSE
        print((score[1] * dicerolls, new line))
    FI;
    0
END