Впаскале абс {ввести с клавиатуры a - первое число арифметической прогресии и d - разность арифм. прогрессии и n - число членов прогрессии вывести на экран n первых членов прогрессии например a=4 d=2 n=5 4 6 8 10 12 14}

Var
  a, d: real;
  i, n: integer;

begin
  write('Введите значение первого члена прогрессии, a=');
  readln(a);
  write('Введите значение разности прогрессии, d=');
  readln(d);
  write('Введите количество членов прогрессии, n=');
  readln(n);
  writeln('Значения членов прогрессии:');
  for i := 1 to n do
    write(a + d * (i - 1), ' ')
end.

Тестовое решение:

Введите значение первого члена прогрессии, a=4
Введите значение разности прогрессии, d=2
Введите количество членов прогрессии, n=6
Значения членов прогрессии:
4 6 8 10 12 14