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

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