Написать програму в паскале: Найти кол-во чисео от 1 до n кратных 15

var
i,a,n:integer;
begin
a:=0;
write('Введите число n: ');
readln(n);
for i:=1 to n  do
if i mod 15=0 then a:=a+1;
writeln('Количество чисел: ',a);
readln;
end.

CONST n=30; //Вместо 30 пишем нужное число n
VAR m:integer;
BEGIN
  m:=n div 15;
  writeln (m);
END.