Составить алгоритм и программу для вывода первых членов арифметической прогрессии с основанием а и разницей d.
Var a, d: real; i, n: integer; begin read(a, d, n); for i := 1 to n do writeln('a[', i, '] = ', a + d * (i - 1)); end.