Вычислите количество чисел в промежутке от А до В (которые вводятся с клавиатуры), которые кратны 7 или оканчиваются на 9. в Паскале

Program n1; var a,b,k,i: integer; begin readln(a,b); k:=0; for i:=a to b do if (i mod 7=0) or (i mod 10=9) then k:=k+1; write(k); end.