Question

Выведите на печать любые K чисел арифметической прогрессии с заданной разностью прогрессии d и начальным значением d.

Answer 1

var
i,k,a1,d:integer;
     begin 
          Writeln('Введите количество, a1,  d')   ;
          readln(k,a1,d);     
                   for i:=1 to k do         
                        writeln('a-',i,' = ',a1+(i-1)*d);
end.