Question

Составить алгоритм и программу для вывода первых членов арифметической прогрессии с основанием а и разницей d.

Answer 1

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.