подскажите. Определить значение переменной после выполнения следующих операторов

Определить значение переменной после выполнения следующих операторов:
s:=0; i:=1; repeat s:=s+ i mod 3; i:=i+1; until i>=7;