Найти количество чётных чисел в отрезке от A доB Паскаль срочноо

Program n1;var a,b,k,i: integer;beginreadln(a,b);k:=0;for i:=a to b do if i mod 2=0 then k:=k+1; writeln(k);end.