Задача в паскале абс

{ввести с клавиатуры 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