в последовательности чисел найти кол-во чисел кратных 7 Паскаль ABC​

последовательность любая или есть какое то число? ну ладно сделаю такvar a,i:longint;begin read(a);for i:= 1 to a do beginif i mod 7= 0 do write(i,' ');end;end.