Найти сумму целых отрицательных нечетных чисел, больших -100
В паскале

var i,s:integer;

begin

for i:=1 to 99 do

 begin

 if i mod 2=1 then s+=i;

 end;

s:=-1*s;

writeln(s);

end.