Pascal
напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0, d=7, an=98
программа должна выдать такой ответ: 0 7 14 21 28 35 42 49 56 63 70 77 84 91 98

program progress;

var a1,d,an,i,a:integer;

begin

 a1 := 0;

 d := 7;

 an := 98;

 i := 2;

 write(a1,' ');

 while(a < an) do

 begin

   a := a1 + d * (i-1);

   inc(i);

   write(a,' ');

 end;

end.

Объяснение:

Так?