Составить программу для нахождения количества чисел кратных 5 на диапазоне от 1 до

Var a,i,n:integer; begin read(n); for i:=0 to n do begin if (i mod 5) = 0 then a:=a+1; end; print(a); end.