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

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

Тогда это уже другая задача.

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

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

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

var a,i:integer;

begin

 for a:=14 to 77 do

   begin

   if (a mod 7=0) then

         write(a,' ');

   end;

end.

var i,k:integer;

begin

repeat

if i mod 7 = 0 then

begin

k:=k+1;

write (i,'   ')

end;

i:=i+1

until k=10

end.