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

//Pascal ABC.NET v3.1 сборка 1172

Var
 i,k:integer;
begin
 for i:=-10 to 10 do
 if i>0 then k:=k+i;
writeln(k);
end.