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