Составить программу.Вывести на экран 10 первых целых чисел кратных 7pascal.Если верно

Так кратче программа: var k,n: integer;begin repeat n:=n+7; write(n,' '); k:=k+1; until k=10; end.

beginwrite (0,' ',7,' ',14,' ',21,' ',28,' ',35,' ',42,' ',49,' ',56,' ',64)end.

Так ещё кратче... )))

А если k = 10000, то как со временем исполнения программы при использовании mod?

Пример задачки, где время исполнения значительно, task/30211291.

А если надо выбрать числа кратные 7 из случайного комплекта чисел?

Тогда это теснее иная задачка.

Извините, но так и не сообразила, для чего вы презентовали собственный вариант программки... Либо вы точно понимаете какие числа необходимы и тогда непонятен выбор конкретно данного цикла, либо устраивать проверку на кратность и не выдумывать сказочные условия...

Ведь можно писать и так:beginSeqGen(10, 0, t -> t + 7).Printend.

Это уже на паскаль, а PascalABC.NET, а опубликовал - для контраста.