вычислить сумму всех положительных чисел от - 10 до 10
паскаль

//Pascal ABC.NET v3.1 сборка 1172Var i,k:integer;begin for i:=-10 to 10 do if i>0 then k:=k+i;writeln(k);end.