На паскале. найти количество чисел которые делятся на 4 в указанном промежутке использовать цикл for

Var x1, x2, i, n : integer;begin
n:= 0;
readln(x1, x2);for i:= x1 to x2 do
if i mod 4 = 0 then n:= n + 1;writeln(n);
end.