1.дано действительное число x и целое число n вывести N первых челнов арифметическойкой прогрессии и найти сумму ее первых членов если первый член X а разность 1,12
2.дано действительное число x и целое число n вывести N первых членов арифметическойкой прогрессии и найти сумму ее первых членов если первый член X а разность (-2,2)

универсальное решениеvar    a, d, s: real;    i, n: integer;begin    writeln('Введите х, разность и n');    readln(a, d, n);        s := a;    for i := 2 to n do     begin        a := a + d;        s := s + a;    end;        writeln(s);end.