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

var a,i:integer;

begin

 for a:=14 to 77 do

   begin

   if (a mod 7=0) then

         write(a,' ');

   end;  

end.