program zadacha2;vara,d,s:real;i:integer;begini:=0;a:=-100;d:=0.4;s:=0;for i:=1 to 180 do begin s:=s+a; a:=a+d; end;writeln('сумма первых 180 членов равна ',s:4:2);readln;end.