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

Question

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

Answer 1

var a,i:integer;

begin

 for a:=14 to 77 do

   begin

   if (a mod 7=0) then

         write(a,' ');

   end;  

end.