Составьте программу вычисления суммы 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.