Составьте программу вычисления суммы 180 первых членов арифметической прогрессии , если a1= -100, d= 0.4

var    a, s, d: real;    i: integer;begin    a := -100;    d := 0.4;    s := a;    for i := 2 to 180 do     begin        a := a + d;        s := s + a;    end;        writeln(s);end.