Найти сумму чисел от 100 до 200 в паскале

var i,sum:integer; begin sum:=0; for i:=100 to 200 do sum:=sum+i; write(sum); end.